





LE VRAI PRIX DES ORDINATEURS 



DISTRIBUTION DES PRIX 



ORDINATEURS 



SINCLAIR ZX 81 16 K 

VIC 20 16 K 

AMSTRAD 

COMMODORE 64 

ORIC ATMOS 

ALICE 90 

ATARI 800 XL 

MSX 32 K 

LYNX 96 

MSX 64 K 

EXELVISION EXL 100 

SQUALE 

SINCLAIR SPECTRUM + 

THOMSON M05 

LASER 3000 

TANDY COLOR 2 

YENO 3000 

EINSTEIN 

TEXAS Tl 99/4A 

THOMSON TO7/70 

SHARP MZ 800 

MEMOTECH MTX512 

SINCLAIR QL 

SANYO 550 

LANSAY 64 

HECTOR HRX 

APPLE II E 

HECTOR MX 

APPLE II C 

GUEPARD 

APRICOT 

DAI 



CINOCHE-TELOCHE 

Plein les mirettes. pages 14 et 15. 



DEULIGNEURS 

Les faineants sont a la page 11 



PRIX 



6955,00 

7100,00 

7500,00 

7805,00 

8079,00 

8405,00 

8910,00 

8960,00 

9100,00 

9110,00 

9120,00 

9240,00 

9270,00 

9460,00 

9640,00 

9690,00 

10340,00 

10610,00 

10785,00 

10970,00 

11260,00 

11770,00 

12110,00 

12400,00 

13060,00 

13730,00 

14550,00 

14870,00 

15050,00 

16110,00 

16890,00 

18270,00 



FORMATION A LASSEMBLEUR 

Le pro! et I'amateur eclaire vous attendant a la page 19. 



Turlututu, chapeau pointu ! Nous avons pris notre chapeau de magicien et, au lieu 
d'en faire sortir des lapins nous y avons introduit des ordinateurs, des lecteurs de 
disquettes, des interfaces, des joysticks, des moniteurs et surtout, surtout un boulier 
chinois pour faire des additions. Le resultat n'est pas triste : comme d'habitude, 
nous vous proposons le plus mauvais tableau comparatif de I'annee ! 



NORMES ANORMALES 

Pour (aire une bonne pizza, i! faut 
suivre les recedes que se passeni 
les ilaliennes de mama en fille Si ii 
manque un ingredient, la pizza esi 
caca. Ma mama n'a jamais vu d'or- 
dinateur a moins d'un metre el je 
ne suis pas une Idle Ce tableau 
comparatif ne suit done aucune an- 
tique recette el nous n 'avons au- 
cune chance de nous voir un |0ur 
homologuer par les normes NF. 
Ma. qu'est ce qu'il y a dans cette 
pizza ? 



D'abord el evidemment, il y a des 
ordinateurs. Des unites centrales 
comme on dit dans les journaux 
specialises. Ici, ga va ? Oui. ga va 
Et vous, en va ? ici ga va du ZX a 
soi-disanl 590 francs et qui se re- 
trouve a 7000 balles jusqu'au DAI 
de 7000 francs depart tout nu qui 
appfoche les deux batons avec ses 
petits accessoires Irivoles En tout 



a ceux qui PROGRAMMED leur 
machine, pas a ceux qui ne sen 
servenl que pour jouer. Ceux-la 
peuvenl parfaitement continuer a 
enfoncer sauvagemeni des cartou- 
ches de Rom dans le port adequat 
de leur engin. lis ont aussi le loisir 
de regarder avec I'oeil qui leur reste 
leur lecteur de K7 en train de char- 
ger pendant des heures le dernier 
ieu a la mode 










32 oecanes sont sur la senette, 
nous les avons choisis parce que. 
el seulemenl parce que. Les autres 
son! soil beaucoup Irop chers el 
"pros", soil n'ont pas de lecteur de 
disquettes. 

DISQUETTES BOLOGNAISES 

Un ordinateur sans lecteur de dis 
quettes n'est pas vraiment un ordi 
nateur ! C'est comme ga el pas au 
Irement. Si vous n'etes 
d'accord. vous vous fourrez le doigl 
dans I oeil jusqu'au coude. et quand 
|e dis le coude.. La. ie m'adresse 




Nous avons done mclus dans notre 
tableau comparatif un lecteur de 
disquettes par machine. Certaines 
en comportent deux en standard el. 
selon les marques, ce sont des 3 
pouces 1/2 ou des 5 pouces 1 4 
Nous n'avons pas pris en compte 
les micro-drives de Sinclair qui sont 
tout ce que Ion veut sauf des me* 
moires de masse serieuses. leur ca- 
pacity et leur liability sont la pour 
en temoigner Sinclair aura done 
droit a des drives normaux (5 
pouces 1/4 el anglais). 
Les capacites en Kilo-octets repor- 
ters dans le tableau en page inte- 
neure correspondent en pnncipe a 
des disquettes formate'es. Mais 
nous ne les avons pas loutes tes- 
tees - certaines comme cedes des 
MSX ou du Lansay ne sont pas en- 




core sur le marche - ne tenez done 
pas trop compte de ces cluftres qui 
ne sont qu'mdicatifs et elements de 



POUT ? POUT ? POUT ? 

Cette semaine. COUCHO est en page 17. 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater, modifier, trafiquer, magouiller. 
bldoulller et grenouiller avec les togiciels du monde entier. 
Mais dans la legalite. au moins ? Of course, mon general ' 
Lire page 9. 



comparison. Les catalogues des 
constructeurs sont si facetieux I 

MONITEUR PALERMITAIN 

Un petit momteur noir et blanc pour 
ne pas se (atiguer les yeux quand 
on ecrit un beau et long pro- 
gramme, ga vous lerait plaisir ? 
Non ? Tant pis pour vous. il y en a 
un dans notre recette. C'est quand 
meme super pratique et ga permet 
de comparer ce qui est comparable 
puisque plusieurs marques en four- 
nissent un en standard (Apple. 
Amstrad, Guepard, Exelvision....). 
Nous I avons compte a 1000 francs 
pour ceux qui n'en ont pas C'est le 
pnx normal de ce genre de chose, 
si vous I'avez pave plus cher. vous 
vous etes fait avoir ' Sauf pour 
Hector et Lansay, pas besoin d'in- 
terface particuliere Le momteur 



boite vide Pour les autres : no pro- 
blem, resident ou en cartouche, ge- 
nial ou bidon. le basic repond pre- 
sent a I'appei 

DEMANDER LA CARTE 

Debugger un listing de 6521 lignes 
sur un momteur. c'est pas de la 
tarte Ouand on connalt la qualite 




d Exelvision est le seul a avoir une 
peritel incorporee Apartga. rien a 
voir, circulez ! 

SPAGHETTIS AU BASIC 

Et c'est encore Hector qui fait des 
siennes, le HRX est le seul a ne pas 
etre livre avec un basic : il parle 
haut et forth Le Hector MX. lui, a 
un basic el un forth et un logo et 
un assembleur et un desassem- 
bleur. aaaaalouette ' Complete la 
panoplie de ce polyglotte expansif, 
nest-ii pas ? Le TO7.70 vous pom* 
pera 480 Irancs de plus pour sa 
cartouche de basic sans taqueile il 
n'est que ce dont il a I'air : une 




moyenne des editeurs video et les 
jeux de mots laids que je fais sur la 
cuisine italienne dans cet article, on 
peut meme dire que ce n'est pas de 
la pizza ! II vous faut done une im- 
primante pour parfaire I'art de la 
programmation dans lequel vous 
commencez 3 exceller Et hop. un 
petit coup de vile flatterie, ga ne 
mange pas de pain ni de pizza. 
Cette imprimante est. bien entendu, 
comprise dans notre configuration. 
Oh, ne vous attendez pas a une im- 
primante de course, style laser a 
double injecteur turbo-compresse et 
a 26 couleurs tendres et miscibles. 
vous aurez droit a une traction-fric- 




bon |uste bonne a tirer les listings 

de travers Une Seikosha a 1500 

Irancs. ga vouS va ' De loutes 

Suite page 16 



C'est nouveau, ca went de sortir : 

L'actualtledelamtcro-informatique Lire pages 9,10. 



CONCOURS PERMANENTS 

Voire programme, non content de vous rapporter 1.000 
francs par page publiee. peul vous rapporter 20.000 
francs chaque mois ou un voyage en Californie pour deux 
chaque trimestre. Reglement en page interieure. 



f AMSTRAD . 

APPLE lie et He. ATARI 800 XL . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatib.es . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON TQ7, TO7/70, ET MQ5.J J 



N°77 2 



Allemagne 3.50 DM - Belgique 77 Frs • Canada 2.50 S - Luxembourg 74 Frs - Suisse 3.30 Frs - 



10F 



PANIQUE 

AU FOND DES MERS 



ORIC1ATMOS 




Rechercher des tresors au fond des oceans n'est pas 
de tout repos, il faut savoir se sortir indernne des mau- 
vaises rencontres que vous ne manquerez pas d'y 
faire. 

Ph.et JM.RIAS 

Mode d'emploi: 

Pour les possesseurs d'ATMOS, remplacer en ligne le CALL # 

F89B par un CALL # F8D0. 

Comme d'habitude modifier les PLOTS et les SCRN comme suit: 



ORIC 1 : 
PLOT X.Y,"A" 
SCRN (A,B) 

CALL#FB9B ' DI MNOC 23 > ■ DIMWAt 25 > ; D 
IM0CC23) 

1 REM a************************** 
r*x 

2 REM * 
* 

4 REM * PANIGUE AU FOND DES MERS 

5 REM * PAR PH. ET J.M. RIAS 
X 

6 REM * 
* 

7 REM *************************** 
Kit* 

6 SC-0 1 HS««" . . . PERSONNE" ' MH">3 

9 cosueaeeae 

10 REM 

11 REM TABLEAU 1 

12 REM 

13 REM *** INITIALISATIONS TAB. 1 
*** 

14 Pl-3'P2-ll;P3-19'P4-27-P3-35 
13 Ql-l;Q2-8iQ3-16'D4*24<Q3-32 

16 PO«-"*fc* "'OU*-"OUILLE!" 

17 Q0*-" cd l, ^0»-"l)C" 

18 BO«»"f"-:VI*-"VIES M 

19 ex-I4<BY-2'QQ-0 
20? TA-1'GOSUB4009 

399 GOTO3090'WAIT20'PLHY7,4.1.a 
4B7 REM ************************* 

•ft* 
406 REM **** ROUTINE PRINCIPALS * 

*** 

409 REM ************************* 
*** 

410 P-PEEK(*20Q) 

415 IFBYM0THENGOSUB1499 

416 IFBY=13THENGOSUB1450 

417 IFBY-23THENGOSUB1470 

418 IFBY-24THEN1473 
41? IFBY-4THENGOSUB1460 

42B IFP-»9gTHEH5BSyBlBB0' f MONTE 
43b ifp-»b4thengosubub8' a oesce 
hos 

448 ifp-hbcthengosub1200' h droit 
E 

450 IFP-#ACTHENGDS'JB1300' i GAUCH 
E 

433 PLOTBX.BY.BO* 

454 GOSUB2000 

455 OX-OX-1' IF0X<2 THEN9B62 

498 REM ************************* 
*** 

499 REM *** DEPLACEMENT P0ISSON3 
*X* 

501 REM J************************ 
*** 
510 PLOTPI,I0,PO«<PLOTP2,10.PO« 
313 PLOTP3.10,PO»-PLOTP4, 10.PO* 
517 PLOTP5.10,PO» 
530 IFPl-lTHENPl-34>PL0Tl,ie," 

533 IFP2-1THENP2-34-PLOT1.10," 

535 IFP3-lTHENP3*34rPLOTl,10," 

337 IFP4«1THENP4»34:PL0T1,18," 

540 IFP3"1THENP3-34>PLOT1,10," 

350 P1-P1-1<P2-P2-1:P3-P3-1;P4«.P4 



559 REM X** DEPLACEMENT POULPES * 
«** 

560 REM ************************* 

*xx 

565 PL0T01.13-00*:PL0TQ2,13,Q0» 

567 PL0T03-I3.00».PL0TQ4.13.Q0ft 

569 PL0T95, 13,80* 

570 IFQ1-34THENQ1=0-PLOT34,13." 

373 IFG>2»34THENG12«0'PLOT34,13," 
375 IFO3-34THENC!3-0:PLOT34,13," 
577 IFQ4-34THENQ4-0PLDT34.13," 

579 IFQ5-34THENQ5*0'PLOT34,13," 

580 Ql-Ctt + 1'132-82+1 03-Q3+1 Q4-Q4 

583 05-05+1 
695 GOTO410 

698 REM ************************* 
*** 

699 REM ****** FIN DE ROUTINE *** 
*** 

700 REM *********XX****X*****X*X* 



997 REM ****** SOUS PROGRAMME *** 
[*X 

998 REM ****** DE DEPLACEMENT *** 
it* 

999 REM ************************* 

BY-BY- 



1080 BO»-"f" PLOTBX.BY, 
1 IFBY<4TH£NBY"4 

1082 RETURN 

1023 PLOTBX.BY. BO* 

1100 B0«-"9"-PL0TBX.BY." " i BY-BY+ 
l:IFBY>25THENBY-23 

1102 RETURN 

1200 80*-"h">PL0TBX,BY," "<eX-BX+ 
I i IF8X>37THENBX-37 

1202 RETURN 

1239 BY-BY-4 



ATMOS : 
PLOTX + 

SCRN (A + 



A suivre: 

En raison de la longueur 
mhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 




1380 BG»="1" 'PLOTBX.BY," " ' BX-BX- 

1 IFBX<3TNENBX-3 
1302 RETURN 

1349 REM ****S*XX***X*X********X 
(330 REM *** SOUS-PROGRAMMES *** 
1332 REM *** SECRETS *X* 
1354 REM *********************** 
1400 IFSCRWBX+1.1BX >320RSi:PN-. BY. 

- 1 , 19 X >32THEHP0P GOTO 1430 
1418 RETURN 
1458 IFSCRH' BY.-l: 13 K>320RSCRN( BX 

+ 1 , 13 X >32THENP0P ' GOTO 1490 
1439 RETURN 
1468 IFBX<13ANDBX>11ANDGG=1THENPQ 

P GOTO28990 

1461 IF3G=1THENRETURN 

1462 IFPP=1THENPP«2:PL0T37,24.21 
1464 IF8X<13ANDBX>llTHENPL0TBX+2, 

5.OU»,MUSIi:2.1.1.0:PLAY3.0.1 .1090: 
G0T01473 

1468 RETURN 

1470 IFBX=13ANDPP<>2THENPP-1'PING 

1472 RETURN 

1473 WAIT49'PL0TBX+2,5." 
PL 0T1, 25, 3 'RETURN 

1475 IFBX=»37HNDPP=2THEN19009ELSE4 
19 

1477 REM ************************ 
*X 

1478 REM ****** CONVERSATION ft*** 
** 

1479 REM ************************ 
** 

14B0 PLOTBX-2, 8, "CRUNCH!" 

1481 PL0TBX-3,8,1'C0-1 

1482 GOTO9062 

1490 PL0TBX-2-.il, "MIAMI" 

1491 PL0TBX-3,ll,l=CO"l 

1492 GOTO9062 

1999 REM ************************ 

2000 REM **** SOUS-PROGRAMME **** 
2005 REM **** D'AFFICHAGE ****. 
2007 REM ************************ 
2018 PL0TI,6.STR»<MR>'PLDT3,9." 



'I»-"V 
IE" 

2018 IFMA<lTHENPaP'GOTO3000 

2020 RETURN 

2999 REM *********************** 

3090 REM *** MORT DEFINITIVE *** 

3081 REM *********************** 

3085 CLS'PAPER7'INK1 

3020 FORI-1TQ12'PLOT1,I,10<NEXT 

3022 PL0T19,l."«":PL0T19.2,"i" 

3824 PL0TI9.3. »< " ;PL0T19,4, "< " 

3026 PL0T19.3,"> , ''PL0T19,6,">" 

3027 PL0T16,11. "PERDU" 'PLOTie. 12, 
"PERDU" 

3038 PLOT15.20,"SCORE"'PLOT22,20 

3035 WflIT20'FORI-lTO7 ;PHPER7'INK 
1'UHITZB'PflPERl' INK7 'MAI T29 NEXT' M 
U-0 

3836 G0SU633299 

3037 GOSU829000 

3038 SC-0 i MA-3 i G0T09 

3040 WAni30'QQ-0'RP-lVP-0 

4000 REM ************************ 

40.10 REM ** PRESENTATION TABLEAUX 
** 

4028 REM ************************ 
*** 
4025 CLS i PAPER4 ' INK6 
4030 PLOT1,11,10;PLOT1.12,10 

S PL0T2,I2,2:PLOT15.11,"TABLEA 



J" 
4040 

4<14*> 
404K 
4050 
. STR« 
4B33 

'1060 

■m>- ■:> 

5080 

*** 



PL0T15, 12, "TABLEAU" 

PL0T2.15, 10PLDT2,I6, 10 

PL0T2,29,5 

PL0T17,15.STR«(TA>PLOT17,16 

"" PL0T15, 20, "SCORE" 

PLOT22,20.STR«<SC) 

GOSUB35200 

RETURN 

REM ************************ 



5002 REM ********** DECOR ******* 
3004 REM ************************ 



3023 PLOT0, 0, 22 PLOT0, I ,22 PLOT* . 
2-22'PLOT0,13,2PLOT2.2.0 

5030 PLOT0.3,22'PLOT12,3,2O* IFQC, 
-0THENPLOT14,2,"f"^PLOT0,10,6 

5040 PLOT10,0, "3 A «#»MMMM»M#« 
•#_" 

5058 PCOT 1 5 f 1 . " 3"tt#«l#*t##l»##_ - 

5055 PL0T1 ,17, ■'•" 'PL0T1 , 18, "< " 

5037 PL0T1.19," )" 

5060 PL0T14,2," "'PP-0PLOT37.25. 
28PLOT1,3,0 

5065 IFQQ=1THEN419 

5067 REM ******* PLONGEON ******* 
XX* 

5070 PL0T12.3,":>E":PL0T15.2."ti" 
MRIT15 PLOT 15.2." " PL0T16, 3 . "9" ■ P 
I.0T1.25.1 

5080 UAIT13PLAY0.7.1,3000PLOT13 
,3,":';":PL0T16,4,"9"'WAIT15^PL0T! 
5,3," 

5098 BX=16<BY"4<eo*="9" ■■0»12« PL 
0T1 ,5,VIf 'PLOTS-e- "OX" UAIT80 PLOT 
13,25. "r" 

5108 GOTO410 

3997 REM *************** ******* ft 

5998 REM ******** PIPES ********* 
5399 REM ************************ 
6090 PLAY7,4.1,0iSOUNDl,I,0 



6005 FQRVO-0TO15STEP. 7 SC'UNL-1 , if 75 
0-VO*10.VO'NEXT W8IT20 

6010 FORVO=0TO 1 5 ■ SOUND 1 . 9909 , VO -■ N 
EXT 

6020 FORVO-0TO1 5 > SOUND 1 . 9200 , VO ' N 
EXT 

6030 FORVO=0TO 1 5 SOUND 1 ■ '»30P . VO ■ N 
EXT 

6840 FORVO-0TO 1 5 ■ SOUND 1 , 9400 . VO ' N 
EXT 

6050 SOUND1,1,0 

6100 RETURN 

9036 REM ************************ 

9037 REM **** SnilS-PROGRAMME **** 

9038 REM *** MORT DU PLONCEUR *** 
9059 REM ************************ 
9062 COSUB6000 

■?i37>i Mfi=rifi-i 0>;=11W 

907^ IFC0=lTHENPL0TBX-3,8.. '■ 

".PL0TBX-3.11," ":CO°0 
9074 PLOTBX.BY," "=GOSUea0Be 
9073 IFQO-1THEN27035ELSE5060 
9995 REM 



9996 REM ■ 

9997 REM ■ 



TABLEAU 2 ■ 



1 090O SC-SC+DX* 1 00+ 1 000 . TA-2 i GOSU 
B4000 

10001 CLS VP-0 

10002 INK0iPAPER6iPLOT0,0,lG 

10003 VI*-"VIES" 

18003 REM *********************** 
*** 

10010 REM ******** DECOR ******** 
*** 

10013 REM *********************** 
*** 

10820 PL0T1.2S. "3M#Wt»#»##1MMI- 
3H4(*Hi*«NHt)*H*-" 

10025 PL0T1,25," 3tt#tt«tt«#tt#«#„ 
> »#*! «#»###(*_" 

19930 PL0T1,24," 3#mmnmn»_ 
C ]»#### M. " 

10035 PL0T1,23," 3x_ 
* M«R_" 

10040 IFQQ»1THEN10073 

10045 PL0T9 ,28. V" i PL0T8 . 22 . 4 ' PLO 
T10.22,l 

10050 PLOT30.22, 1PL0T32.22,2 

10060 PLOT4,0,VI*'PLOT13,0,"OX." 

19078 80*-"h" -BX-2 i BY-3 ■ PX-28 i PY- 
4 

10071 RP-l'OX-99 

10073 PLOTPX,PY."JlnP" 

10077 PL0TPX.PY+l-"kMo4" 

10097 REM *********************** 
*** 

10098 REM *** ROUTINE PRINCIPALE 
*** 

10099 REM *********************** 



NTE 

10110 IFP-«B4THENGOSUB15500'9DESC 
ENDS 

10115 IFP»#BCTHENGOSUB16000' M DR 
OITE 

10120 IFP-#ACTHENGOSUB16300' l GA 
UCHE 

10121 PLOTBX.BY, 80* 

19122 IFQQ-0THENPLOT33,6,"*"ELSEP 
L0T3.9,"*" 

10123 GOSUB17026 

18130 IFBX-31flNDBY-22THENVP-VP+2' 
PING 

10200 IFVP>7THENG0SUB 12000 

10300 IFBX«PXftNDBY-PYTHEN17900 

11900 GOTO 10100 

11100 REM *********************** 
*** 

11110 REM ***** FIN DE ROUTINE ** 
*** 

11120 REM *********************** 

11130 REM 

11150 REM ***************.******** 
*** 

11160 REM ** DEPLACEMENT PIEUVRE 
*** 

11170 REM *********************** 
*** 

1 2900 D-SQRC < f BX-PX )"2 >+< < BY-PY •■ 
2)>' IFD-0TNEND"=.5 

1 2901 PH- 1 NTC PX+f ( 8X-PX VSRR< D > >+ 

' 1 2082 PZ- INTC PY+< ( BY-PY ).--SQR( D > .M- 

"12005 PLOT PX,PY," 
12006 PLOTPX.PY+1," 
12020 PX-PWPY-PZ 

12030 PLOT PX.PY,"JlnP" 

12031 PLDTPX,PY+!,"kmol" 
12940 RETURN 

14999 REM *********************** 

14190 REM ** DEPLACEMENT PLONCEUR 

** 

14200 REM **********XX*********** 

*** 

13090 PLOTBX,BY," "'BY-BY-RP 

I5B83 IFSCRN'BX.BYK>32THENi".0SHBl 

6719 

15007 IF8Y<3THENBY=4 

15910 SO«""f". RETURN 

13500 PLOTBX.BY." "'BY=BY+PP 

15505 IFSCPN' BX.BY ■■ >'J2THENr,nRMPl 

6710 

15597 IFBY>22THENBY^22 

15518 B0«-"9" RETURN 

16000 PLOTBX.BY," '^BX-BX+RP 

1 6003 I FSCRN< BX. . BY >< >32THENGn-:l tp 1 

6718 



16007 IFBX>33THENBX=33 

16019 BO*-"h" : RETURN 

16500 PLOTBX,BY," " = BX-BX-RP 

16503 IFSCRNTBXBV ■■■' >32THENG0SUBl 
6710 

16597 IFeX'^THENBX-3 

16510 B0*="1" 'RETURN 

16797 REM *********************** 
*** 

16708 REM ****** PROTECTIONS **** 
ftftft 

16709 REM *********************** 



*** 
16710 
16713 

1,22, "r 
16716 
16717 



i REM J 

SN-SCRN(BX,BY) 

IFSN-1 14THENVP-8 1 RP=2 PL0T3 

"'PL0T9 .22, RETURN 

IF c :N=HSO' BO* 'THENRETURN 
IFSN-42THENP0P 1 ZAP " GOT01 710 



16740 RETURN 

16996 REM *********************** 

16997 REM ******* EXPLOSION ***** 

16999 REM *********************** 
*** 

17900 F08C0= 1 TO50: INK 1=INK7' NEXT ^ 
INK9 

17019 CLS'VP-=9'MR=MA-1:IFMA<1THEN 
3000 

17012 GOSUB6000 

17013 S0UND1,1,8 

17013 IFQO-1THENGOTO26065 
17017 GOTO10092 

17020 REM *********************** 
*** 



*.**. 



17022 REM ******* AFFICHACE ***** 
* 

7024 REM *********************** 

1 7926 PL0T9, 0, STR*C MA ) 1 PLOT 16,9," 



17928 PLOT16,0,STR»f OX) 

17030 OX-OX-1 ■ IFOX<0THENPOP i GOTOl 
7BB0 

17032 IFMA<2THENPLOT7.0," ":VI»-" 
VIE" 

17034 RETURN 

17045 REM *********************** 
*** 

17930 REM ** DETECTEUR DE TPICHE 
*** 

17055 REM ***X********x********** 
**# 

17190 IFGQ-1THEN27000 

17110 IFVP<10THEN17000 

19000 REM 

19010 REM TABLEAU 3 

19920 REM 

20080 SC-SC+OX*30+2000 1 TA-3 1 GOSUB 
4000 

20005 BX-4'BY-13'P3-9VP=3 

20006 OX- 129 

20097 PI*-"jlTiP "<P2»-"kmo4 " 
20019 CLS:PnPERe<INK6 
20030 REM ***XX**************x*** 
X** 
20060 REM *** ROUTINE PRINCIPALE 

28070 REM *********************** 

20100 P-PEEKC1208J 
29105 IFP056 THENOX-OX-1 
20110 IFP-#9CTHENGOSUB25000 
20120 IFP-#B4THENGOSUB25109 

20130 IFP-#BCTHENGOSUB23200 

20131 PLOTBX.BY, "«tu" 

20133 IFMA-0THENPLAY100. 180, 109, 1 
3 1 WAIT40 1 PLAY0, 0, 0,0 'GOTO3090 

20141 GOSUB23390 

20142 IFOX<0THENGOTO25609 

20143 IFP3B15THEN25790 

29150 H-INTCRNDf 1 1X15J IFH-ITNENG 
OTO23490 

20160 IFH>12THEN23390 

20170 GOTO20109 

22000 REM X********».*****X******* 
*** 



■■ ■ 



22010 REM **** FIN DE ROUTINE *** 

XX 

22020 REM *********************** 

eY=BY-l IFB 



23000 PLOTBX.BY. 
Y<2THENBY=2 

25919 RETURN 

25190 PLOTBX.BY," " BY=BY+1 = IFB 
Y>26TH£NBY=26 

25110 RETURN 

23197 REM ****#***x************** 

25198 REM ********** TIR ******x* 
*** 

25199 REM *******X**********t**x* 

25209 F0RFL=8T037'PL0TFL.BY. ,t -" 
'NEXTFL PLOTFLBY. " "'FL=fi 

252 1 9 I FBY=M* 1 0PBVM+2THEN2522n 
25215 RETURN 

25220 PC0TZZ-3.M. 1 'PL0TZZ-3.M+1 .5 

25221 PL0TZZ-3.M+2.. 1 

25223 PLAY0. 1.2,309 

25224 PL0T22~2,M ."J In P^ J " 

25225 PL0TZZ-2,M+1," *ds„.." 
25239 PL0TZZ-2,M+2."k m q ■ . » 
25235 WAIT50 P3=P3+1 ■ a.S XX=1-^C= 

■5C+109^M»9 
25277 G0T025215 
25297 REM ****X*****X*X********x* 

23298 REM ******** PIEUVRES ***** 



25299 REM *********************** 

25390 M-INT<RND< 17*18+3) 

25391 ZZ-35 
25394 ZZ-ZZ-1 IFZ2=l THEHXX=0=PLOT 

ZZ.M+1." ",PL0T7Z.M+2." 

GOTO20100 

25396 PLOTZZ . M+ 1 . P 1 • ■■ PL0TZZ , M+2 , P 
2* 

23310 P-PEEK'. #208 ) 
23312 IFP056 THENOX"OX-1GOSU82S 
509 

25313 IFP=#?CTHENGOSUB2590O 

25314 IFP-OB4THENGOSUB23100 
23315 IFP-»BCTHENGOSUB25200 
25316 PLOTBX,BY,"sty"'IFSrRN' BX+3 

. BY X >32THEN25608 
25337 IFXX-1THENXX=0 GOTO29109 
25318 IFOX<0THEN25600 
25320 COTO23304 

25397 REM ******************r***x 



2339S REM ******** MUPENE ******* 
*** 

25399 REM *********************** 
*** 

25409 Z2«35'MY=BY 

25420 ;Z?=Z2-7 

25440 PL0TZ2.MY."vi, 

25443 PLOTZ2-1,MY,5 

25451 P-PEEK<t208) 

25432 IFP056 THENOX-OX-1 

25453 IFP=#9CTHENGnsiJB2' r .ij0n 

25454 IFP=#B4THENGOSUB25100 

25455 PL0TBX,8Y,"stu" 

25457 IFZ2-7HNDMY-BYTHEN 
LOT3,MY.5Hf(7Tin9 PL0T3-MV," "GOT 
023699 

25458 IFZ2-7THENPLOT3. MY ■ 5 WRIT10 
0'CLS'GOTO29807 

25460 GOT025429 

23497 REM *********************** 
*** 

25498 REM ******** HMYGENE ****** 
*** 

23499 REM *********************** 
*** 

23590 PL0T3 1,1, 8TR*< P3 > PLOT: 
TP*f MR > 

25505 PLOTl^. 1 , PI 0T16. 1 ■ ^TR* 

<0X) 

25506 PL0T2 ■ . VI* < PLOT 1 7, 0, "OX" 

25507 PLOT29.0, "PIEUVRES" 
25510 RETURN 

25597 REM *********** ************ 
*** 
25^98 REM ******** EXPLOSION **** 

25599 REM *********************** 
*** 

25690 FOREX"1TQ20' INKS ' WAITS < INK? 
.HfiIT2'NEXT 

^f,f<? GOSUB6990 

25610 CLSMH=MA-1 

25613 IFMA=1THENVI*-"V1E" 

25629 GOTO20905 

25690 REM *********************** 
**** 

25695 REM ******** TRESOR ******* 
**** 

23698 REM *********************** 
**** 

25790 22=35 : MY=RY+ t ;PL0T7.PY,3 

;-'S705 Z2-22-1 

25710 PLOTZZ. MY. "vux" 

23712 PL0TZ2+2.8Y,"H " 

23715 PL0TZ2-1 ,HY,2 

23720 IF22=7THENPLOT12.MY+2."V0ir 
I LE TRESOP" WAIT290 C0T026989 

25725 G0TO25795 

26090 REM 

26010 REM TABLERU 4 

26929 REM 

26025 SC=SC+OX*50+ 1500 : Tfi-4 ■ GOSUB 
4000 

26039 CLS 5Q-1 

26969 PAPER4 INK 3 VI*="VIFS" 

■?$M.?. Pi OT13.0."OX^ 1 

26965 PL0T4 , 8, VI* 1 BO*-" 1 " 1 BX=33 " B 
Y=3 

26070 PX«3:PV=3-RP=?-0X=22--VP»8< I 
NK3 

2K0fltt GOTOHigr-R 

37990 PFM 



27010 REM TABLEAU 5 — 

27915 REM 

27025 SC»SOOXX1 99+2009 TB=5 ' GOSI I 



27059 OX-30 PLOT 1 , 5 , VI « PL0T2 . 8 , ' 
OX" 
27955 PLOT0. 1 9. 0: PLOT 1 ?.3. 70S 
27100 PAPFP4 ■■ G0T05929 
28909 REM *********************** 

29095 REM ******** GAGNF * ****** 
*** 
?fiFMf< PFM ************************ 



A SUIVRE.. 
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COMMODORE 64 



Le jeu consiste a reussir successivement trois man- 
ches de tir a I'arc dont la difficulty va croissante. Si la 
troisieme manche est reussie vous passerez a 
I'epreuve du tir au fusil en pleine nature. II s'agira cette 
fois de tirer sur tout ce qui bouge, ce qui est nettement 
plus amusant. 



Bertrand GIFFAULT 



Mode d'emploi: 

II est dans le programme. 



BEPTPRHD OIFFRULT 



PPESEHTE 
CIBLE 



sup commodore 64 



i rem 

2 PEM 

3 PEM 

4 PEM 

5 PEM 

6 REM 

7 REM 
9 REM 

9 PRINT"tT]"'CLR 
1 8 V-53243 ■ POKE V+2 1 , 9 | POKEV+29, 24 ! POKEV+23 , 56 ■ VV-54272 'U"l ! POKEV+2? . 6 

12 P0KE54296,15-P0KE54295,e 

13 POKE53281,0 POKE53180 9 

14 POKE2040,132;POKEV+39,0 
115 POKE2W1.193.PCIKEV+40.8 
16 POKE2942,194 POKEV+41,6 
1? POKE2043,I94POKEV+42,7 

18 P0KE2944. 193P0KEV+4' : t.9 

19 POKE2043.196:pQKEV+44,9 

20 POK£2046.197:POKEV+43,1 

21 POKE2047. 198-POKEV+46.0 

22 FORI "0TO62 : RERDO : POKE 12288+ 1 , ■ NEXT 

23 FORI =OT062 ■ RERDQ i POKE 1 2352+1 . i NEXT 

24 F0RI=8T062 ^RERPO ■ P0KE12416+I , Q :NEXT 

25 FORI=0TO62 RERDQ ■ POKE 1 2480+1 , Q ; NEXT 

26 FOPI=0TOS2 ! RERDQ - POKE 1 2544+1 , NEXT 

27 FOR I =0TO62 ■ REFIDQ ■ POKE 1 26B8+1 . : NEXT 

28 FDPI*0TO62;REfiDG3POKE12672+I,GKNEXT 

29 FORI=0TO62-REFirO P0KE12736+I.QNEXT 

30 FOR I =0TO62 ■ RERDQ ■ POKE 1 2808+ I • G NEXT 

31 FORI=8T062 RERDQ P0KE1 2864+1 ,0 NEXT 

32 FORI -0TO62 : RERDG ■ POKE 12928+ 1 , ' NEXT 

33 FORI "0TO62 1 RERDQ ■ POKE 1 2992+ 1 , Q : NEXT 

34 FOPI=0TO62: RERDQ POKE13056+I .Q NEXT 

35 FOR1»0TO62 : RERDQ POKE13120+1 , NEXT 

36 FORI=0TO62 RERDi5-P0KE13184+I J giNEXT 

37 FGRI-8T062 PERM* : PUKE 1 3248+1 , -NEXT 

38 FOPI-0TO62 : REHD6KPOKE13312+I ■ Q-'HEXT 

39 FORI=0TO62 : PERTIGI I POKE13376+I , Q3HEXT 
43 P£M************#*=:PPITES**»******** 

41 DHTR0,0,0.0,0,0,0,0.0 

42 DfiTfll. 1.9.0, 130,0.0,68,0.0.40.0,0. 16,0.0,40.0.0-68.0.0, 130,0. 1, 1 .0 

43 DRTR0, 0.0. 0.0, 0,0, 0,0, 0,0, 0.0, 0.0, 0,0, 0,0, 0.0, 0,0. 0,0, 0,0 

44 DHTR0. 0.0. 8,8, 8, 0.0, 0,0,0, 0.0.0-8 

45 DHTR0,f " 

46 DR1R0-I. 

47 DRTR.0,0.0, 0.0.0.0. 0,0, € 

48 DRTR0, 126.0.1,255,128.3,255, 192,7,255,224, 15,233,240.. 15,255-240 

49 DRTH31, 255, 248, 31, 255. 248-31 ■235,248.63,255.252.63.255.252.63,235,232 

50 DflTR 31.255,248,31 .235.248. 31 ■ 255 ■ 243. 15, 155, 240, 7,236, 224, 3. 255, 192 . 1 .255 

51 DRTR120. 0,126,0,0.0,0 

52 DRTR255- 255 ■ 255 ■ 25" . 255 255 - 255 . 255 , 255 255 . ^,Z 255 255, 255, 255, 255, 255,255 

53 DRTR255, 255, 255.255, 255-255-255. 255, 255, 255-255 155 ■ 255 ■ 255 . 255 . 255 25^.253 

54 DH.TFI233. 255, 255, 255 -255. 255. 255, 255. 255, 255. 255 -255- 255, 255- 255. 255. 255. 235 
3? DHTR255 . 255 - ?■;■■:■ , 255 , 255 . 255 . 255 . 255, 255 

56 DRTH0.7. 192,9. 7.192-9, 7, [92,0.7,132,0.7,192.0.7.192 

57 DfiTfl0, 15, 192, 0,13-192.8.15,192 

ZS »RTR0,63, 192,0,63, 192 

59 DHTP0. 15. 192,0, 15, 192,0, 15. 192 

60 DRTR0. 7, 192, 0,7, 192, 0,7, 192, 0,7, 192,0,7, 192, 0,7, 132. 0,0,0 

61 BRTR0. 0, 0, 0. 0, 0. Pi, 0. 0. 0. 0. 0, 0. 0. 0,0, 0,0, 0,0. 0,0. 0,0, 0,0,0, 255 .255, 255 

62 BRTH0. 0.0, 0.0, 0,0. 0,0, 0.0. 0,0, 0,0. 0,0, 0.0, 0,0 ,0,0, 0.0, 0,0, 0,8, 8. 0,0,0 

63 DRTR0, 0.0, 0,0, 0,0, 0,0, 0,0, 8, 60, 255- 235, 127, 255, 255 

64 DRTR127.0.3. 126, 9 . 3 ■ 69 ■ 224 . 9 . 24, 1 92 -«, 25 - 192 . 0,25, 128. 0. 27. 128, 

65 DHTR27.0. 0,30.0.0, 38, 8, 8, 12,0,0 

66 DHTR0, 0,0, 0,0, 0,0, 0,0, 0,0.0 

67 DRTR0. 0,8. 0,0. 0,0. 0.0, 0.0, 0,0, 0.0, 0,0, 8 

68 DHTR0, 0,0. 0,16, 8,0, 16,0,0,0,0, 1, 147,0,0.0,0.0,16.0 

69 DflTfTO, 16.0,0.0,0,0.0,0,0,0-0 

70 DRTR0, 0.0. 8,8, 8, 0,0, 0,0, 8.0 

71 DHTH0, 0.0,0. 8. 0,0, 6, 0,0. 3. 128, 0,1, 192, 0,128, 224 ' 

72 DfiTfll, 234. 96, 3, 255, 240, 53. 255. 232, 127,255,252. 127,255.252:63.255. 188. 15.255 

73 DflTflO, 7. 255. 128, 14. 1.192, 7, 132, 96, 0,0.0 

74 DHTR8, 0.0, 8,0, 0,0, 0,8, 0,0,8 

75 DflTH0, 0,0. 0,128, 0.0, 192. 0.8. 224, 0.0, 241. 128, 0,251, 64 

76 DRTA0, 233, 248, 1-255, 0,7, 254-0, 31, 248, 0,63, 0,0. 48-0, 0,8, 0,8 

77 DHTfi0,8.0.0,0,0,0,0,08,e-e 

78 DRTFI0, 0,8, 0-0, 8,0, 0,0. 0,8,8 

79 DflTfle. 8, 0.0. 0,0, 8.0, 0.0, 0,0, 0,0. 43. 0.0. 104 

80 DRTH0. 15,254,0.63,224.0.255. 192 3, 255. 0.7, 222. 0,6. 28, 0,8, 24 

81 DRTR0, 0.16,0,0,8,8,0,0,0,8,0,0 

82 BRTR8. 0.8, 8. 0,0,0,0,0.0.0.0 

83 DRTR0. 0.0. g.0, 0.0. 0,0. 0.0. 0.0, 0,0,0. 16.0 

84 DRTR0. 2. 8,0, 166, 0,8, 16, 128. 0,132, 0.0- 81. 128- 1.8, 0.0, 66,0 

85 DRTR0.S9, 0,0, 0.8. 0,0.0,0.0.8 
06 DRTR0, 0,0, 0,0, 0,0, 3, 0.0, 0,0 

87 DRTR-8, 0.0, 0.128,0,0.0,32.4,66,64,2, 0,0,0,4.32 

88 PRTR0.0.0. 16,0, 128.0.0,0.4.0.0.8,0.8,0.0-64.8.33.0 

89 DRTR1 . 16,64,9,8,0,0,0,0,0.0,0 
98 DRTR9, 0,0. 0,0, 0,0, 0,0, 0,0,0 

31 DRTR3, 128.0, 15, 132.0. 31 224 9 63.255.254,31 255,255,0.0.0 

92 BRTR0, 0,0, 0,0, 0,0, 0,0, 0,0, 0. 0, 0,0, 0,9, 0,0, 0,0 
33 DHTR0. 0,8. 0,9, 0,0, 90, 0.0,0 

94 DRTR0 , 9 ■ , 9 , 8, 9, ■ 0, 8. B . B 

33 DRTR0, 255, 255, 7, 255, 255 . 15 . 255, 255 ■ 31 . 255 . 255 6:3 . 255 ■ 255 . 1 27 . 255, 255 

96 DRTR255. 255. 255, 255. 255. 25 c 117-255.255.127-255,235 

97 DRTR63.255.255.63,255-255. 127-255.255. 127 255 255 31. 191 223 

98 DRTR0. 0.0.0.0,0,0,0.0.0.0. 0, . 0, 8. 0, 9, 

93 DRTR249 9 9 . 252 . 9 9 ■ 255 9 ■ 255 ■ 1 28, 9, 255 . 1 92 . , 255 . 240 - 

100 DRTR255, 248. 9,255, 254, 0,255, 235- 8-255, 255,125 

101 DRTR255, 255- 192. 255.255 . 224 '^ 255 ■ 149 ■ 255 . 255 . 243 .-'35 255 . 252 . 255, 255 . 254 

1 02 DRTB255, 255 . 255 . 9, 9, 9 9 . - 9 . - 9 . 8- 8, 0- 8 

103 PRTR0-9-9.99.9.9. 224. 0-7, 252-0. 15,254.0,63.255,128 

104 DRTfl 12? -235. 132.255,255.214 235 255, 224 . 255 . 255 .224 

195 DRTR127, 255, 182, 127, 255 132 . 127 ■ 255, 192, 63- 255 - 131 - 7-155 0, 9, 254, 9 . 9 

106 DRTR0. 0,0, 9.0, 9, 0.0. 0,0. 0.0.0,0 

107 PRTR26. 166,78,26. 166. 135.32 167 ■ 22 . 56, 150 ■ 14 . 24 . 159 . 70 ■ 153, 14, 38 

108 PRTR90. 14,22,68,6, 14.24,6,6,24,6-6 

103 riflTR24. 6. 6, 24, 6, 6, 24, 6, 6. 24. 6. 6 -24, 6 -6. 24. 6. 6. 24. 6. 6 

1 10 DRTA0 .0,9.0.0.0-0. 9, 0, 0,0.0 

1 1 1 PPIHT'Tl" Pi^ E.5313M 9 T." E5328 1 . ■ FORI =9T01 1 POKE 1 1 04+ 1 , 67 : NEXT 

112 FOP I =0TO23 : POKE 1 1 84+ 1 - 67 NEXT 

113 FORI-0TO24 P0KE1364+I , 67 NEXT 

114 FCRI = 1036TO1136'=iTEF49 POKE I ■ 101 ' NEXT 

115 PRINT-fltliMMPESSRI SCORE" 

116 FOPI = 19 V.TT. HIS';.';.! tP49 POKE!. 101 ME:-:i 

117 PRINT"»■■M■rK^II^IFLE , ' 

118 FOPI=1054TO2015STEP49 

113 FijfE-0TiJ9T9IFI+E.191 l-'F:-TE - ! 

lie. F9PT = i3:-i4Tni0ri73TEP40 FOPE=9T0.?4 ■ P0C:EI +E - 193 ■ NEMTE ■ I 

12! F0PI=561-'6Tr.i36236 PCiKEl-Q-NEHT ■ REM 

122 FORI=553S6TO56286STEP40 

123 F0PE=0TCi3 F0KE3 +E ■ 6 NE>'TE, I 

124 FOPI = ie53TO4'013STEP40 POKE I. 181 : HEi-IT : POKEV+16 .0 

125 PRINT" """ 

126 RP1HT 1 

\7" ttunnnmmmmmmtmnnu fp miiiii em- 

128 POKEV+0. 179P0KEV+1 -63 POKEV+39,7 

129 POKEV+2- 193=P0KEV+3, 61 

130 P0KE'-+4. 192P0KEV+5 60 

131 POfEV+6, 180-P0KEV-7-50 

132 POKEV+8..l89-POKE , '- , +3-50 

1 33 POKEV+10 ■ 248 ! POKEV+1 1 , 9 

134 PGKF'./+!2,49-pOKE l -- , + 13.180 F=35 
13= -C^E-l-i- ;:n.priF:EV-H5.183 

137 P0KE53231 .3-POKE53230.7 




edito 



? POKEV+2 1, 255 OOSUB 139 
139 F0RU=lT0-3 X=0 

149 r.iTiiJp]3S PPIHT 

141 PRINT 1 

142 PRINT 1 

143 PPINT 1 

144 F0RD=IT03 

145 IFD>=2THENfl* = , 'EM , ' 0OTO147 

146 flJ^EP" 

147 PRINT li «"n l, ll"Hj:3C=9 
14-3 F0PT = 1T06 

149 IFT>=2TRENP.I="EM" : 00T0151 

150 B»= , 'ER" 

151 PRINT"1WW'T"II"EI 

152 00SUB196 S=0 POKEV+21,255 
i'zO Fripv=0Tul35?TEPL'-l 

1 54 I FS=2RNHPEEK '. V+ 30 < = 1 27THEN093r IE 1 ?'■■ '30SUB174 

155- POKFV + 11 V IF7 = 2flNDF-FEK'-V+r : !M> = i;-7THEMi:.':r3liEI93 riri?IJE174 

156 GETRJ ■ tFfi*=*HR*<13)BNBSaB I HENS "2 S03UBIB7 

157 IFS=2THENGO5UP170 

■■-.-■ ■-:-9-!l.-THfcN0u3utl93 G0SUE174 
139 NEXTV 
169 IFF<=255flNDF-O40THENOOSLiP170:GOTO160 

161 NEKTT 

162 I FSC - <:S3BQTHEHPR I rlT ■ MI M t WW IlWlif TRB 1 255 

163 IF?C<8080THEHPPINT"«W»»»*BIIlWB"TRBf255 

164 PRINT"!* 

165 PRINT " 



QURLIFIEa" G08UE216 



1 -PRINTTRE' 34K''3C '0=0+49 



-, r-05Lii?;:i2 ppint" 

' IFSC>=8000THENJ=J+5r:3C^0 Grj3UI:2I4 0=0 HEXTU G0T0219 

3 NEXTD : J=J+SC : SC=0 

? G0T0283 

) F=F+L' IFF>255THEHF=40:?>i:POf;EV+21, 191 : POKEV+1 2, 40 PETUPN 

1 IFPEEK(V+30' = t2~OPPEEK''V+30..= 126rHEHf.'i;i'-,ij£!rH3 G95UB174 

2 POKEV+12.F 
J RETURN 

1 P=INTf<189-INT<V>;>?:S=i:POKEV+39.0 

5 IFP>=18RNDPv21THENR=l 

J IFR=lTHENPRIHT"»»»Wl»MH«BimOIIW"TRB(255)"CENTPE" : On^jp i :"-•=. ■-:<■■ = 

' IFP=lTHEHPPIHT , 'SiMWWiW!anaBIB« ,, TflB<255>" "-R=0 



■■'. t- ;iji 



178 IFINTCP»29THEMSC=SC + IMT'.RPS'P-33->*100 POKEV+9. 1 75+P ROTOl^ 
17s 3r=3it n;T'ftP3'p-, :>ti0fl : PuVEv+g, 172+p 

180 IFSC>=8000HHrrX=0THEHPPIHT l, 5*P»PPPPPPWfHW ,, TFlE''i'V. 

181 IFSC>=8009THENPPIHT ,, «»MM»P»POJ«r , TfiFr25SV' 

131 PPlMT"d'UiappppPPPPPPK»|"5C 

183 POKEV+21,255 

184 F0RI = lT05-POKEV+3?.l FOREi=lTO290 HEY.1E POKEV+39,8 FGRE-1T02B9 NEXTF^NEMT! 

135 F=40 F0KEV+12-F 

136 RETURN 

187 POKEW+6.0:POKEVV+5,31 POKEVV+1 . 139 POKEVV+4 ■ 33 F9PI-1T919 NEXT POKEW+4 . 

13? RETURN 

1.83 F0KEV','+fc,o POKEVV+5, 12-P0|-'EVV + 1 . 299 POKFVV+3 .50 

190 POKEVV+4,0 POKEVV+4-65 

191 FORHN=1T0200 I'EXT POKE 1 .; 1 -/ +4 , 9 

132 RETURN 

133 POKEVV+60 POKEVV+5, 31 POKEVV+1, 80 POKEVV+4.133 

134 F0PNN=1T018 HEXT'POKEVV+4,0 

195 RETURN 

196 POKEVV+6-8 PO) EVV+5,31 POKEVV+1 30 PL"iK.EVV+4,69 : FuPI = lTO790 NE::r POKEVV+4-0 

137 RETURN 

198 F0RI=3T08 00SUB282 L=I 

l^q FRim"**maf&mmmmmmmiMianni.'L\\T m" ■Ht , :'.L---.i:-'n* ■■ 

200 OETC*- IFCJOCHP*' 1 3 -THENNE::t : G0T0198 

201 L=L*3^RETURN 

202 POKEVV+6, 9 ■ POKEVV+5 . 31 ^ POKEVV+ 1.3" F OKE W+4 , 133 ' FOPNN=1TO10 ' HEHTNN 

203 POKEVV+4,0 

204 RETURN 

19"- FnKEV+21 .0 PRINT"^ ,, -PRINT' , TO!KWWH«WP»Pr-,'OTF-'E SCORE EST I i;3L'FF 1SRNT" 

206 PRINT"WiiPnijp VOUS QUALIFIER POUP LR "U+l" EME MRNCHE" 

10--- F'F'lHT'«PPPf..'0iJ3 RVE2 FRIT UN TOTRL DE "-J 

203 PPIHT">PPpr'0: l 

203 OETfl*IFflf="0"THENRUN 

210 IFfi*O"O , 'FiNDRt^>"N"THEN209 

211 END 

212 POKEVV+6. rtpN!-E , -, , V+5- 12 Tt^tW+l 109 POKE VV+3, 4+0 " FGRNN=1T03 

213 priKEW-M POKEVV+4 . 65 : FORMM=1TO500 NEXTMM, NN POKEVV+4 . 8- RETURN 

114 PQKEVV+6,ij POKEVV+5. 12 P9KEVVM ■ 1 6 POKEW+3 ■ 19 : FOPNN=1TO10 

::?■ F-jl L-V ,■<■■- rnrr.-v...; , ■-: :--V:i.- !!!-.= i TH 30 ■ HEXTI1M, HN : POKEW+4, 10 90T0212 

216 POKEW + e ■ 249 POKEVV+1 .4 POKEVV+5, ■ POKEVV+4 ■ 33 : F Cf!iN= ! 914 : 03 1 13TEP-3 

21- POKEVV+1 .NN1256 POKE 1 -.' 1 ."-,' . HUft(IP255 ' KE' TUN ■ POKEVV+4,0 

213 RETURN 

213 PR I KT " na>PPP WIW WWVOTRE SCORE TOTAL EST " .: J- POKEV+21 . B 

228 PPINT"8|*PPi»MBIM«<WIET MRINTENHNT. . . 

221 PRINT"I»P»»P»LE TIP SUP CIBLE? V1VRNTES" 

222 PRINT " il-JPPPPPPI' r.-UHL IF I CRT I OH R 6800 PTS>" 

223 PRINT'^WPPPPPPP POUR MONTEF" : PRINT "IMHMe POUR DE3CE1IDPE" 

224 PRIHT"0»*P»»»»fflPPlJ l t , ER SUP LINE TOUCHEi" 

115 F0PE=9T916 FOPI = lTO5O , ME;:TT'nKE53230-E NE'/TE 
226 0ETRJ;JFR*=" i 'THEH225 

2-"'- 1 PPIMT'TT 1 ■F'OKEV + 21-0POKEV»28.0 POKEv + 13 P0KE53239 ■ t. P01E53231.5 V=150 J-0 
228 FORI=1TO20:PPIHT"SX1 " ■ NEXT ' REH43ESP 

223 PRIHT-JPCORE MRNCHE" SC=0 

139 P0KE2049, 133POKE'--'+33,0 POKEV+39. 1 

231 POKEV+9. 39 POKEV+1 . 199 POKEV+2?, 3? POKEV+23, 36 

232 F9KE2O41,205 FOKEV+40-S PUKEV+40.1 

233 P0KE2842296 POI EV>4 1 , 6 ■ POKEV+41 .5 

234 P0KE2843 297 POKEV+42 ■ 7 : POKEV+42,5 
233 POKE2044 ■ 208 POI EV+48 . 9 ' POKEV+43. 1 1 
236 POKE204510? POI'EV+44.9 POhEV+44.0 

23^ P0KE294 7, 134 POI .EV+46 . 9 : POI FV+46 . 7 : POKEV+14, 255 

i:^ I'OKEV. 1 6 - 118 : POKEV+14. 45 

yjr, POKEV+15,80 

149 POKEV+3.50 

241 POKEV+4 . 255 POKEV+5- 146 

342 P0KEV+6-22P0KEV+7.193 

243 POKEV+3,160-POKEV+9,194 

244 POKEV+ 1 8 , 255 - POKEV+1 1 , 1 76 

245 POKEV+21, 131 
146 F0RU=1T06 
247 PRINT" 
243 PRINT" 

143 inj-<:THENt-0SUB28? 

230 POKEV+2. INT '?9+22iV«PNP'-0;ooO3UB212 
151 FORQ=1T015 

151 = INTfl+l*PHIi :"'■■ OUOr.03UP275-273P=P 
'^± 003Ut:i86 

254 FQRX=iaT02528TEPU*l.S 

l-^-:- OETRf :1FRJ="R 1, THEHH=2 

256 IFRr="Z ,l THEHH=l 

257 IFH=2THENV=V-6 !FV'4:::THEHV=43 
253 rFH=lTHENV=V+6: IFV3239THEHV=239 
253 F'OKEV+LV POKEV+0-X 
£60 IFT=0THENPO»-EV+12.:.< 

261 IFT-lTKtlilFTIt. "099009"RI-ID1 II 1'Ot'OUl 'mtHrurt^^-.^ n.ir.c»ni-,( ■ >M I Uto. 

262 IFT=lTHEHPOKE204i. 101 P0I.EVM2, K+300SUE231 
■'-I: IKT'-f ■'9i-'W>9r'THENTI*""W8W8" 

264 IFPEEK.'t.V+vcr. = r:.5THENP0KEV + ; , 9,8 00T0267 

265 POI EV+39 ■ 1 

I'r-n. IFR*=CHPI- 13/THEN003UP236 
267 IFR*=CHPr'-13.-'RUPPEEK.'V + 30'=65!HENPOKE204.;..vu:;:r;O3ijE:2? (; , i;iO'-'JE234 ' C0T0271 

263 POKEV+21 -255 
269 NEXTX POKEVV+4 ■ 
279 POKEV+21, 191 

271 NEKTOiIFSO=6990THEN273 

272 C-PT0295 

273 ?C=8 
2-4 Nil-ITU OOT02?2 
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A partir de desormais jusqu'a. 
dorenavant, je ne tolererai plus 
que Ion nous Itse sur ce ton. 
Nous avons droit a un pen plus 
de respect de la part du lecteur 
et il est totalement inadmissible 
que vous vous dispersiez en li- 
sant Hebdogiciel. Out, c'est a 
vous que je parle : vous savez 
partaitement que j'ai raison et 
que, plus d'une fois, vous vous 
etes permis de feuilleter distrai- 
tement le journal au lieu d'en 
apprecier toutes les finesses et 
les subtilites par une lecture as- 
sidue et renouvelee. Certains 
vont jusqu'a sourire et, croyez- 
moi si vous voulez. je me suis 
laisse dire que quelques lec- 
teurs peu scrupuleux se permet- 
taient de rire carrement. Croyez- 
vous que nous puissions conti- 
nuer a echre des lettres, des 
mots et meme parfois des phra- 
ses entieres pour en arriver la ? 
Pensez-vous que nous fassions 
tout ces efforts d'assemblage de 
syilabes pour n'etre lus qu'une 
seuie fois ? Jentends que, non 
seulement, une concentration 
studieuse et un recueillement 
zele soient appliques systemati- 
quement lors de la lecture de 
notre prose mais , en plus, mon 
Editorial doit imperativement 
etre lu selon des regies tres 
strides. II est, par exemple, 
exclu de proceder a la degusta- 
tion de mon oeuvre en n'etant 
pas dans un lieu adequat ; une 
chapelle, une eglise, a la limite 
un coin de votre habitation ame- 
nage et decore de cierges, 
d'icones a mon effigie et re- 
hausse par des effluves de par- 
fums subtils. De la meme facon, 
il est indispensable d'adopter 
une attitude humble, respec- 
tueuse et reflechie avant d'enta- 
mer la lecture a haute voix des 
montagnes de philosophie que 
je condescends a distiller cha- 
que semaine aux pauvres heres 
que vous etes. N'oubtiez pas 
que vous n'etes que lectorat 
anonyme et que mon nom brille 
en lettres de feu au fronton du 
paradis des auteurs geniaux. 
D'ailleurs, a partir de la semaine 
prochaine, le journal sera de- 
baptise, demandez a votre mar- 
chand de journaux le remptacant 
d'Hebdoqiciel. Je n'ai pas en- 
core arrete le nouveau titre, j'ne- 
site entre "La vie et I'oeuvre 
hebdomadaire du Maitre Cec- 
caldi" et "Ceccaldiciel", je vous 
ferai part de ma supreme deci- 
sion des que j'aurai fini ma cure 
de disintoxication. 
Ah, au fait, on est a la bourre 
pour le serveur telematique de 
I'HHHHebdo. On a fait des 
essais sur un petit et ca coince, 
il en faut un plus gros et c'est 
plus long. Vous attendez encore 
un petit mois ? Oui ? Merci, lec- 
teurs cheris. Pour la peine, vous 
pouvez continuer a parler entre 
vous. 

Gerard Ceccaldi 



BEAU ROBOT 
ATOUTFAIRE 

Nous I'avions annonce lors de 
sa presentation au CES de 
Las Vegas. Maintenant il atta- 
que la France arme de ses 
deux chenilles, de son port 
cartouche, de sa compatibilite 
MSX et de sa tete bourree de 
puces. Le Wizard part a I'as- 
saut de tous les foyers infor- 
matiques equipes de MSX. II 
est livre avec une cartouche 
programmable de 4 Ko que 
vous remplirez a ras bord a 
partir de votre micro et que 
vous enficherez alors dans !e 
robot. C'est en fait le premier 
robot de la familfe Movit a reel- 
lement posseder un interet : il 
n'a pas qu'une seule applica- 
tion definie par le constructeur, 
il est en revanche ouvert a 
toutes les propositions pro- 
grammatiques que vous pour- 
rez lui faire. Sa commercialisa- 
tion devrait debuter en mai et 
Wizard devrait vous couter en- 
viron quinze cents francs. 




SERPENT 



Ou les aventures d'un serpent vorace qui se nourrit 
plus vite que son ombre. 

Didier CHABOT 

Mode d'emploi : 

Ce jeu est compose de deux programmes. Le premier permel de 
creer la routine en langage machine necessaire au second qui est le 
programme principal. Tout d'abord. tapez le premier programme et 
utilisez-le dans I'ordre suivant : 



1 CONSTRUCTION dune REM de 880 OCTETS (4700 a 4800) : 
Cette routine permet de regrouper en une seule ligne les deux pre- 
mieres lignes du programme. Pour obtenir une REM de la longueur 
desiree, il suffit d'ecrire une REM en debut de programme, de la 
dupliquer en modifiant le numero de ligne de facon a ce qu'elle soil 
voisine de la premiere, et reunir ces deux REM en faisant "RUN 
4700". Reprendre ensuite ces deux dernieres operations jusqu'a ob- 
tenir une REM dune longueur comprise entre 880 et 900 octets 
(ligne 4780). Attention, on ne doit en aucun cas detruire la ligne qui 
suit immediatement cette REM, 



2 INITIALISATION DE LA REM (10 a 80) : 

Cette routine remplit les 180 premiers octets de la REM. Cette par- 
tie contient des indicateurs necessaires au fonctionnement de la 
routine en langage machine. 

3 ENTREE ROUTINE LANGAGE MACHINE (2990 a 3610) : 

Cette routine permet d'entrer la routine en langage machine sans 
I'aide d'assembleur. La routine est entree par groupes de 30 octets. 
A la fin de chaque groupe est indiquee la somme de tous les octets 
du groupe ce qui permet une detection facile des erreurs par lignes. 
Un autre controle en fin de routine detecte les inversions d'octets. 

4 ROUTINE LANGAGE MACHINE ASSEMBLEUR (5000 a 9060) : 
Cette routine a le meme role que la precedente mais necessite I'em- 
ploi d'un assembleur. Les routines 3 et 4 ayant le meme role, une 
seule est necessaire. 

La routine en MACHINE est maintenant entree. Detruire maintenant 
les lignes inutiles et ne conserver que les deux premieres REM, 
puis entrez le programme principal. Pour sauvegarder le pro- 
gramme, faites RUN 90 afin de beneficier dun demarrage automati- 
que apres chargemeni, 
Pour le reste. tout est dans le programme. 




A suivre : 

En raison de la longueur 
mhabitueile du listing, 
nous passerons ce pro- 
gramme en deux tots. 



LISTING 1 



LIGNE . CARACTERE5: 

2. . . "ATTENTION CETTE LIGNE PE 

UT ETRE MODIFIES MAIS NE 

DOIT PR5 ETRE DETRUITE" 

10. . . " INITIAL ISAT ION DE Lfl REM 

1" 
2990. ., "ENTREE DE LP ROUTINE EN 

LANGAGE MACHINE SAN5 ASS 

EMBLEUR" 
4-700. . ."CREATION D UNE REM L 

ONGUE" 
5000. . ."ENTREE DE LA ROUTINE EN 

LANGAGE MACHINE AUEC ASS 

EMBLEUR" 



HR 



fflCLEAR 




1 R EM ■ 

araa cle 

R CLEAR flfrrO CLE 

S£j CLEAR TC fflCLEAR CLEA 

CLEAR CLEAR TO TO l"~^ 
P. QH CLEAR CLEA R T O 
TO TC TO CLEAR lfl "- - . 

SO CLEAR CLEAR CLEAR 

CLEAR HTO TO TO BTO B TO CLERR 
TO ■ CLEAR B CLEAR TO CLEAR CLEH 
R, TO TO TO TO CLEAR TO fig Toifil 
SOD CLEAR [MCLEAR 91 CLEAR OBCL 
EAR TO TO mm T O TC TO CLEAR CLE 
AR CLEAR CLEAR [Mg CLEARil CLEA 
R MJCLEAR CLEAR aSaTO TO «« Tn 
SB TO BTO §H CLEAR CLEAR 



. POKE ?UjLRNDXMiiRNDY CLEAR 
M |RNDY M^RNDYHMmRNDLN ■ "Y COPY 
BK SAUE 7%?LN K *? COPY Be SAUE L 
N ffl"LN Q7Y RETURN HI * "INT Y RUN 

?C<=Y CLS B4-SY CLEAR I14NUURND RE 
URN COS E£RND:<B l} ?T»C« RETURN 
§4"V ?7"Y B4 DIM Q4 NEU LN THEN 
?LN THEN 77UINKEYJUJRND?? RETUR 
N TO 4HHASN 7PILN LIST XNKEY*/<E 
£RNDYB)H ;"?" G05UB HTAS BlNKEYt 
FTAN )S GOSUB ?BM IRNDY TO M«RND 
/? RETURN B4.BC7LN LIST INKEYJJ5 
, TO M lRNDYlM«RND/0 RETURN CLEA 
R 4/gCJLN LIST INKEYSFBm |RNDY CL 
EAR M«RND/, RETURN 84-BCtLN LIST 
INKEYJ7 CLEAR M IRNDYHM.RNDLN LI 
5T INKEYJU-RND RETURN TO 4?) 5 G 
OSUB ?/> RETURN B4, 1 ) 5 , /l RETURN 
CLEAR 4"F/ B 7fi]A3N ?? RETURN HRSN 
?? RETURN *C»LN GOSUB PILN THEN 
?-'HlNKEY*E£RNDJ ? J OOF/ PRINT 2 E 
\RND7S\RNDLN GOSUB PIUlRND> BM^R 
NDE£RND)B ;* i "v'SI GOSUB HCCQDE Ut 
RNDUUMfcRNDTAN TAN LN LIST INKEYS 
OBU.RND RETURN TO 4fi 5 GOSUB ?/ 
> RETURN B4^) S iM RETURN CLEAR 
4"F/" 7QBU*RN0 RETURN CIXMlRNDTfi 
N YHE£RND)B , ■ L • GG5U6 WTAB BlNK 
EY*FQ 15 YlB GOSUB ?BCi,TB|C£ COSU 
B "^BC.'FFflC" 70HTAN E£RND?-7 SAUE 

TAN ACS *ZACS 37/ LOAD LN THEN 
7LN 77LN THEN 7LN ??LN THEN 7LN 
??LN THEN ?LN ?7LN THEN 77IINKEY 
SUiRND RETURN "TAB < INKEY*LN THE 
N 7LN THEN 7LN THEN 7LN THEN 7LN 
THEN 77BINKEYSU|HRND RETURN " C*T 
RN Y COPY BC*V mLrNDA CLEAR I CL 
S TRN eBRNDF-'Y B45BC DIM 76BRNDE 
1RND7E3RND/ PLOT SBRND7A COPY TAN 



OKE TAN 



COPY 



CLEAR *4 SAUE 



10 REN 

IS RAND 

13 r-'OKE 16520, 

14 POKE 16521 , 141 

15 POKE 16522,64 
50 POKE 16525,223 



25 POKE 16525,253 

■ POKE 16526, 127 

35 POKE 15527,151 

40 POKE .16699,128 

41 DIM A (4) 

42 LET A (1) =191 

43 LET fl(2> =127 

44 LET A i.3J =253 
4.S LET A (4) =223 
50 FOR X=1652B TO 16695 

60 poke x.Aiirrr crnd*4j t 

70 NEXT X 
SO STOP 

3000 LET A =16700 
:,j.v... ;..,.:, r 

301O LET A*="2AOC4011A102193E9C7 
73EB423772377£377£33E3B77£A0C4O1 
15D00157E2O98" 
3015 GOSUB 3500 

3020 LET A*="3DFE1B20063E25772B1 
8F4773A32403D3.^2.;<) 3f L :Kl3 3235403E0 
03234403E2517" 
3025 GOSUB 3500 

3030 LET A$="BF323340CDBB023EFFB 
C20FSC3S643CO&B023EFFBC2SF8CDBB0 
2CDA0433E40S6" 
3035 GOSUB 3500 

3040 LET AS="FEBC20O2CF003EF7BD2 
SDB3EFBBD203S3EFDBC20333A3240FE0 
0CS2A0C403440" 
3045 GOSUB 3500 

3050 LET A«="11R50O190152027EFE9 
C2808FEB426O4FE3B2OO33E007723OB3 
E00BS20E92520" 
3055 GOSUB 3500 

3060 LET A*="E920E6CDDE43CDDE43C 
33C413A8540477OFEDF2032B5CR6E42C 
DF04118133SSO" 
306S QOSUB 

3070 LET A*="£h0C403E3B11A530190 
15a02EDE13.-'-JH4. ' t .ic.C'dll2100ED5£7EF 
■ .' ■ : ■....::;-,::■:> 3 ■ 
... :■-.• -■. -.-:: -■ 
3080 LET A*="7F32S5403EDF32S34O1 
SS5FE7FSQlBB3S34eCD! :: 04. 111210Q197 
EFESe2S422954" 

■ . ; • :. :■-;.:; ..' 
3090 LET A« = ' , 3EDF3285403E7F32834 
OlS36FEFD201Se32S£FCDF0412B7EFES 
02S263ESF3270" 
3095 GOSUB 3500 

3100 LET AS="32854O3EFD32S3401Si 
AFEEF2016BS2313C( FCJ I i?EFE802SO 
fl3EFD3a»5330i" 
3105 GOSUB 3500 

3110 LET Ai="403EBF328340CDF0413 
AS340FEDF20O7112100EDS21S12FE7F2 
0061121002721" 
3115 GOSUB 3500 

3120 LET A$="1913O3FEFD20O32B180 
1237EFE3a2811FE'3CCA6843FEB4CA684 
3FE3623093295" 
3125 GOSUB 3500 

3130 LET AS="CDED42CDDE43C3SF412 
A0C40114FOO197E3CFE262005361C3B1 
8F5772A862S48" 
3135 GOSUB 3500 

3140 LET A$="402322364QCDED423AS 
440060 13O32844O2AOC4011A5O0 190 11 
0023E38ED2253" 
3145 GOSUB 3500 

3150 LET A$="B12SC43R82403C3C328 
240C9C9CDFO4136B43A8340FEDF20071 
121O0ED523313" 
31SS G05i.,B 3500 

3160 LET A*="1312FE7F200611210O1 
91308FEFD 123363B3A8440F 

EOO28O53D2O20" 
3165 GOSUB 3500 

3170 LET A$="32S440C93E9C2A0C401 
1A5O019013102EDB1CS9H41SB360O112 
1003EE4ED2495" 
3175 GOSUB 3500 

3130 LET A$="52BE28111919BE280CE 
DS223BE23O62B2BBE23O123369CC92A0 
C400S162321S5" 
3135 GOSUB 3500 

3190 LET A*="7EFE76200310F3C9CB1 
73FCB1F771SEFCDDE43CD5243CD0E43C 
D5243CDDE4026" 
3195 GOSUB 3500 

3200 LET A* = ,, 43CD5243CDDE43CD524 
3CDDE43C3AB413A3340FE01C23741COD 
E43CDDE434089' i 
3205 GOSUB 3500 

3210 LET A$="CDDE43C0DE43CDDE43C 
33F413A3340FECJ.. 10 EFFBDfiSORS 
EO032324O3502" 
3215 GOSUB 3500 

3220 LET AJ="26FD£EFBC92ASB402B4 
73E©aBDaae3BCS ■ ■.■::.223B402A894e2 



37EFE30203070" 

3225 GOSUB 3500 

3230 LET A*="0521SD4O1SF622S940S 

F26FFC90006O10EOB1SFF152OFDOD20F 

31OF4.C9002722" 

323E GOSUB 3S0O 

3240 LET S1=0 

3245 LET 30=0 

32S0 LET S2=0 

3260 FOR X=16700 TO 17339 STEP 3 

3270 LET S0=SO+PEEK X 

3271 LET S1=S1+PEEK (X+l» 

3272 LET S2=S2+PEEK CX+2> 
3280 NEXT X 

3290 IF S0O22307 OR S1025321 
P S£.>21105 THEN GOTO 3400 
■Z3ZZ PRINT "AUCUNE ERREUR DETECT 
EE"," 0K,'J0U5 POUUEZ CONTINUER" 

3305 SLOP 

33.10 STOP 

3400 PRINT "ERREUR. REUERIFIEZ LE 
S LIGNES", "DE 3010 A 3230" 
-3406 SLOW 
3490 STOP 
3500 LET 5=0 
3510 FOR X=l TO 30 

3520 LET Y = 16*iC0DE ASUX*2)-D- 
£8) +CODE At CX*2i -23 
3530 LET S=S+Y 
3540 POKE A,Y 
3550 LET A=Atl 
3560 NEXT X 

3570 IF 5=UAL A*l(2*Xi-l TO ) TH 
EN RETURN 

3600 PRINT "ERREUR DANS LA LIGNE 
"; 3010 + 1O*INT I IA-16701J / 30) 

: ■:■■■ .-■ ji . ::■[■■ 
3610 STOP 

4700 R Ei-1 " 

4701 REM ROUTINE PERHETTRNT DE 
RASSEMBLER LES DEUX PREMIERES 
LIGNES POUR S0JS5TITUER UNE REM 
LONGUE 

4710 LET L1=4+PEEK 16511+PEEK 16 

512*256 

4-72© LET LT=PEEK i 165 11 +L 1 « +PEEK 

(16512 + L1J *256+Ll 
4730 POKE 16511, LT-256*INT <LT/£ 
56) 

4735 POKE 16512, INT iLT/256) 
4740 POKE 16509, PEEK (16509+L1) 
4745 POKE 16510, PEEK fl6510+Ll) 
4750 FOR X=16508+L1 TO 16513+L1 
4760 POKE X,0 
4770 NEXT X 

4730 PRINT "LONGUEUR ";LT-2," OC 
TETS" 
4300 STOP 



5005 REM 

5010 REM :L1LD HL . t 16395) ; LD DE . 
673, ADD HL.DE;LD A.156.LD tHD.A 
, LD A. 130, INC HL,LD iHL).A;INC H 
L,LD CHLi.A.INC HL.LD tHD.A; INC 

HLi LD A. 139, LD (HL) .A 
5020 REM LD HL . i 16396 ), LD DE.93; 
ADD HL.DE,;L2LD A.kHLJ.DEC A;CP 
27; JR NZ.L3.LD A.37.LD iHL).A;DE 
C HL; UR L2, : L3LD IHL) .A;LD A. (16 
514); DEC A;LD (16514). A 
5030 REM LD A.tFD;LD (16517). A, L 
D A,0;LD (16516) .A;LD A.$BF;LD ! 
16515) .A 

5040 REM : L4CALL *02BB,LD fi.JFF; 
CP H, JR NZ.L4 
5045 REM JP L150 

5050 REM . L5CRLL (02BB.LD A.$FF; 
CP H; JR Z.L5 

5050 REM : L6CALL *02BB;CALL L160 
;LD A.(FE,CP H;jR NZ. L7, : L13RST 
OS, NOP, L7LD A.SF7.CP LJJR Z.L4 
5070 REN LD A.*FB;CP L,JR NZ.L12 
;LD A.(FD;CP H,JR NZ.L12;:L8LD R 
. I 15514) , CP O, RET Z 
5080 REM LD HL. (1639* J ; LO DE.165 
,ADD HL.DE.LD BC.594,:L9LD A.iHL 
) ; CP 155, JR X.LIBJCP 130, JR Z.Ll 
0,CP 139, JR NZ.L11,:L10LD A.O;LD 

(ML) .A 

5090 REM ;L11INC HL,DEC BC;LD A. 
0,CP B,JR NZ.L9.CP CJR NZ.L9;CA 
LL L70, CALL L70 

5091 REM JP LI 

5100 REM :L12LD A.(16517);LD B.A 
,LD A.L.CP *DF;jR NZ.L15;CP B; JP 

Z.L20,CALL L13;JR L14 
5110 REM :L13LD HL . ( 16396) ; LD A, 
139;LD DE.165, ADD HL.DE;LD BC.59 
4, CPIR.JP NZ.L1S;DEC HLiRET 
5120 REM :L14LD DE.33;SBC HL.DE,; 
LO A.CHLi;CP 123;JP Z.L£0;LD A.$ 



7F..LD (16517) .A, LD A.«DF,LD (165 

15) .A; JR L20 

5130 REM L15CP $7F;JR NZ.L16.CP 

B,JR Z.L20,CALL L13.LD DE.33;AD 
D HL.DE, LD A.iHL.'.CP 126, JR Z.L2 
0;LD A.SDF.LD 116517).A,LD A.*7F 
, LD (16515! .A, JR L20 
5140 REM .L16CP $FD;JR NZ.L17;CP 

B;JR Z.L20,CALL L13,DEC HL;LD R 
.(HLJ,CP 123.: JR Z.L20.LD R.*BF,L 
D (16517) .A, LD A.*FD;LD (16515). 
A, JR L20 
5150 REM :L17CP SBF;JR NZ.L20,CP 

B;JR Z.L20;CALL L13, INC HL,LD A 
.(HLJ..CP 123, JR Z.UlBjLO A.SFD,L 
D (16517). A, LD A.SBF,LD (16515) . 
A 

5160 REM :L20CALL L13;LD A.11651 
5i;CP JDF;jR NZ.L£1,LD DE.33;SBC 

HL.DE, JR L24 
5170 REM ;L21CP *7F;JR NZ.L22.LD 

DE.33.ADD HL.DE, JR L24 
5180 REM L22CP SFD;JR NZ.L23;DE 
C HL; JR L24; : L23INC HL 
5190 REM : L24LD R.(HL),CP 1£S,JR 

Z.L26;CP 158;JP Z.L120;CP 130, J 
P Z.L120;CP 136, JR Z.L27, ; L25CAL 
L L50,:L£6CALL L70; UP L6 
5200 REM : L27LD HL .( 16396) ; LD DE 
.79; ADD HL.DE 

5210 REM : L28LD A.(HL);INC fl, CP 
38; JR NZ.L29;LD (HL).£8;DEC HL;J 
R L28;:L29LD (HL).fl;LD HL.ilESIS 
) ; INC HL;LD (16518) .HL 
5220 REM CALL L50.LD A. (16516) ;L 
D B.2;ADD A.B;LD (16516) . A; LD HL 
. ( 16396 ),LD DE.165, ADD HL.DE, LD 

:"■. . 1 :■■:: . ■:<■ !'■- 
5230 REM JR Z.L25.LD A. 116514); I 
NC A, INC A,LD ( 155 14 ). A; RET 
5290 REM RET 

5300 REM ; L50CRLL L13; LD (HD.18 
OiLD fl. L165L5I ;CP *DF;.-lR NZ.LE1; 
LD DE.33,SBC HL.DE;JR L54 
5310 REM L51CP 47F.JR NZ.L52;LD 

DE.33;ADD HL.DE, JR L54 
5315 REM LS2CP *FD; JR N2 . L53; DE 
C HL.JR L54;:L53INC HL,:L54LD (H 
L) .139 

5320 REM LD A.(16516);CP 0;JR Z. 
L55;DEC A,LD ( 165 16) . A : RET 
5330 REM : L55LD A.155;LD HL.1163 
96), LD DE.155;ADD HL.DE.LD BC.56 
l;CPIR,JP NZ.L13;DEC HL ; LD (HL) . 


5340 REM LD DE.33,LD A.180;SBC H 
L.DE;CP (HLj,JR Z.L56;ADD HL.DE; 
ADD HL.DE, CP (HL),JR Z.L56;5BC H 
L.DE;INC HL.CP CHL);JR Z.L56;DEC 

HL.DEC HLiCP (HL);JR Z.L55;INC 
HL, : L56LD (HL) . 156, RET 
5400 REM ;L100LD HL .( 15396) , LD B 
.22;:L101INC HLiLD R.(HL),CP 113 
J JR NZ .L102; DJNZ.L101; RET; ;L102R 
L A,CCF;RR A; LD (HL).A;JR L101 
5420 REM ;L120CALL L70.CALL L10O 
, CALL L70 

5425 REM CALL L10O;CALL L70 

5426 REM CALL L100.CALL L70 

5427 REM CALL L100.CRLL L70,UP L 

60O0 REM L150LD R. (16520) ; CP 1; 

JP NZ.LS.CALL L70;CALL L70; CALL 

L70,CALL L70,CALL L70.JP L6 

601O REM ;L160LD A.(16520);CP 1; 

JP Z.L161; RET; . L161LD A.SFF,CP L 

, JR Z.L152, : L155LD A.O.LD (16514 

).A,LD M.$FD;LD L.$FB,RET 

6020 REM :L162LD HL .( 16523) ; DEC 

HL;LD B.A,LD A.O;CP L;JR NZ.L166 

; CP H;jR Z.L165, ; L166LD A.B;LD ( 

16523) .ML;LD HL. (16521) , INC HL;; 

L153LD A.(HL),CP 128, JR NZ.L164; 

LD HL. 16525; JR L163; : L164LD (165 

21). HLiLD L.AiLD H.*FF,RET 

7000 REM NOP 

7010 REM ; L70LD B.1;;L71LD C . *0A 

,;L72LD D . *FF ; , L73DEC D,JR NZ.L7 

3j DEC C . JR NZ .L72, DJNZ.L71 

7020 REM RET 

3000 REM ) 

9000 FR5T 

9010 LET ZZZ=167Q0 

9020 POKE 32641, INT (ZZZ'256) 

9030 POKE .32640 . IIZ-25& *INT (ZZZ 

..-2551 

9040 RAND USR £8565 

9050 PRINT AT £1,0; "ERROR ";PEE^ 

32651 
9060 5 LOU 

A SUIVRE... 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 10 =520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour letranger: + BO F. pour 1 AN 

+ 40 F. pour 6 MOIS. 
NOM : MATERIEL UTILISE : 


PREN0M : CONSOLE : 


ADRESSE: PERIPHERIQUES : 
BUREAU DISTRIBUTEUR: REGLEMENT JOINT : 


□ CHEQUE DCCP 





CHASSEURS 
_DE FANTOMES 

BRRFL.Une fois de plus fes fantomes a I'honneur avec 
des aventures fantasmagoriques a vous glacer le sang 
dans les veines. 



TI99 BASIC SIMPLE 



100 


REM 


-..,...-.. 


... 1. «,, 


Ml 


110 


REM 


» BHDSTBUSTERS 


* 


120 


REM 


«SUR TI-9"! 


/4A B.S 


• 


130 


REM 


* FIERRI 


LOPEZ 


# 


140 


REM 








150 


REM 


» AFFICHAGE DEBUT 


* 


160 


REM 


.«»»»-«.- 








CALL 


CLEAR 






180 


r Qfi 


=1 TO 16 






190 


CALL 


COLOR ( I . 1 


1) 




200 


NEXT 








210 


CALL 


SCREEN (It 






220 


PRINT "HEBDGGJC 


1EL et PIERRE LOPEZ 


230 


F'RINl 




volie presentent " i : : 


240 


PR INI 


TAB (10) i ■ 


GHOSTBUSTERS" 


250 


PRINT i : : : " Vol 






de" 




■ aide d T 


i.ti snpsrei 1 , " 


260 


PRINT :;" mais 


*n*z d 


abord"! i " 


le eher 


cher. . . " 







270 FOR 1=1 TO 16 

2B0 CALL CDLORU .5. 16) 

290 NEXT I 

300 RESTORE 350 

310 FOR 1=1 TO 12 

320 READ A,B 

330 CALL SDUND(A,B,0) 

340 NEXT I 

350 DATA 150,440,150,440.200,554,150,440 

, 200, 494, 500. 392, 150, 440 

360 DATA 150,440,130,440,150.440,150,392 

,300,440 

37D FOR 1=1 TO 2000 

3B0 NEXT I 

390 GOTO 440 

400 FOR I"l TO LENIA») 

410 CALL HCHAR<LI,C0+I,A9C(SEB«(A*, I, 1) ) 



420 


NEXT 


I 


430 


RETURN 




REM 




450 


REM 


•AFFICHABE GRAPH." 


460 


REM 




470 


REM 


•GRAPH J QUE EN DATA 


480 


REM 


•SOUS LA FORME No 


490 


REM 


"CARACTERE, DEFIN1 


BOO 


REM 


•TIDN.NoS DE LIBNE 


510 

320 
530 


REM 
REM 

CALL 


*ET DE COLONNE 


SCREEN! 16) 


540 


FDR 


=1 TO 16 


r»M) 


CALL 


COLORd. 16, 16) 


560 


NEXT 


I 


570 


CALL 


CLEAR 


58<J 


RESTORE 640 



590 FOR CAR-1 TO 124 

600 READ NO,DEF»,LIB,COL 

610 CALL CHAR(NQ,DEF«) 

620 CALL HCHAR(LIG,C0L,NO) 

630 NEXT CAR 

640 DATA 129, "0O0OO0OOO0OO0001 " , 5, 16, 130 

, "000QQ0000O3C42B2",3, 17, 131, "0000000003 

040B08",6,13,132,"G20408FE",6,16 

650 DATA 133, "0101", 6, 17, 134, "O000BO5824 

140BF",6, IB, 135, " 1010202322444OS", 7, 15. 1 

36, "0000000301 ",7,16 

660 DATA 137, "01OAO702O2S2O101 " ,7, 17,138 

, "83830303", B, 15, 139, "S04706O6O6" , B, 16. 1 

28, "0101810102020202". B, 17 

670 DATA 140, "000000000010F06" , 9, 16, 141, 

"OOOOOOOOOOOOOOC". 10, 16, 142, "20202020201 

01F11", 10, IB, 143, "00010101 ",11 

6B0 DATA 15, 144, "COEOEOEOC", 11, 16, 145, "3 

1202020404040B", 11, IB, 146, "FB0601", 11,19 

,147, "000001", 12, 15. 14B 

690 DATA "0010E0E04". 12. 16. 149. "OOOOOOOO 

0080404", 12,24, 150, "0000000106040201 ",13 

,9, 151, "00000080700806B1", 13, 10 

700 DATA 152, "800101060BOB102-, 13,23, 153 

,"B", 13,24, 154, "0000000000010204", 14,9, 1 

55, "404020501", 14,10, 156 

710 DATA "E0100C0201", 14, 11, 157, "4040407 

046B1", 14,23, 15B, "00000000008060 18", 14,2 

4, 159, "040407", 15,9, 120 

720 DATA "00F01C2O204044", 15, 10, 121, "OOO 

000021C64B2B1", 15, 14,122, "08101010202020 

4", 15,20, 123, "0000000O00OO0B7F" 

730 DATA 15,21, 124, "0000000000001CE3", 15 

,22, 125, "000000 1F20500B04", 15,23, 126 

740 DATA "OSOaOBF", 15,24, 127, "B24F7", 16, 

10,38, "0000C0340E02", 16, 11,37, "000000000 

403B242",16, 12,36, "4 126 IB". 16,20 

750 DATA 35, "301C232O4O4OB", IB, 16,34, "OO 

00B0700F", IB, 17,39, "010101", 9, 17, 96, "000 

0F0FFFFFFFFFF",7, IB, 97 

760 DATA "OOOOOO0OEOFBFEFF",7, 19, 9B, "OOO 

003070F1E3E7C",B, 14,99, "E0F6FCFEFFFFFFFF 

",B,20, 100, "OOOOOOOOOOBOCOE-'.B 

770 DATA 21, 101, "00000103070F1P1F" , 9, 13, 

102, "7CFBF8F0E0E0COC",9, 14,103, "FFFFFFFF 

FF7F7F7F",9, IB, 104 

7BO DATA "EOFOFBFCFEFFFFFF", 9,21, 105, "00 

OOO0O00OOOB0B",9,22, 106, "000000000001010 

3", 10, 12, 107, "3F3F7F7FFFFFFFFF" 

790 DATA 10, 13, 10B, "808" , 10, 14, 109, "FF7F 

1F0701",10,19,U0,"FFFFFFFFFFFF7F3F",10, 

20, 111, "COCOEOEOFOFBFBFC", 10,22 

BOO DATA 112, "030707O7OFOF1F1F" , 11,12, 11 

3, "OOOOB08080COCOEO", 11, 14, 114, "1F0F0F1F 

3F7FFFFF", 11,20,115 

BIO DATA "FCFEFEFEFFFFFFFF", 11,22, 116, "t 

F3F3F3F7F7F7F7F", 12, 12, 1 17, "FFFFFFFEFEFC 

FCFB",12,13,11B,"E09",12,14,119 

820 DATA "0000000000010307", 12, 18.BB, "FO 

FOEOCOC0808" , 13, 13, 89, "070F1F7FFFFFFFFF" 

, 12, 19,90, "BOCOCOCOEOEFFOE", 12 

B30 DATA 23,91, "000000OOO103071F", 13, 17, 

92, ' , 0F1F3FFFFFFFFFFF ,1 , 13, IB 

840 DATA 93, "FFFFFFFFE7CBB" , 13, 21 , 94, "FF 

FFFCFBF", 13,22,95, '•FCFCFBFOE060100a ,, , 14, 

12,40, "00000001030F1F3F", 14, 16 

B50 DATA 41,"3F7FFFFFFFFFFFFF", 14, 17,42, 

"FFFFFFFFFFFFFEFC", 14, 19,43, "FCF8FOE0COC 

02014", 14,20,44 

860 DATA "000003070F1F3FFF", 15. 15,45, "7F 

FFFFFFFFFFFFFF", 15, 16,46, "FFFFFFFFFFFEFC 

FB", 15, 1B,47,"FBF0E08 , ', 15,19,48 

870 DATA ,, 03070F1F7FFFFFFF , '. 16. 13.49. "Ol 



Pierre LOPEZ 



01030F1F9FBFFF", 16. 14.50, "FFFFFFFFFEFCFB 

E", 16, 17,51, "FOEOC", 16,18,52 

BBO DATA "8303030303030707". 16,21,53, "84 

C2C2FEFBFBFBF", 16.23, 54, "23313F3F3F1F1F1 

F",17,12,55,"FFFFFFFEFCF0E0C",17 

890 DATA 16,56, "COB", 17, 17,57, "O7O7O70F0 

F1F1F1F", 17,21,58, "FOFOFOFOEOEOEOC" , 17,2 

3,59, '•OFOFOF0707070303", IB, 12 

900 DATA 60 V "FFFEFCFBF0E0C081", 18, 15,61. 

"0000000000010303", 18,20,62, "3F3F7FFFFFF 

FFFFF", 18,21,63, "C0C0C0B080B", IB 

910 DATA 23, 64, "010101", 19, 12,65, "FFFFFF 

FFFF7F3F3F" , 19, 13,66, "B2C4E8F0FBFEFFFF" , 

19, 15,67, "OOOOOOOOOOO 10307", 19 

920 DATA 19,6B,"070F1F3FFFFFFFFF", 19,20, 

69, "FEFEFEFCFCF8F0F", 19,22,70. "1FOFOF07C 

30301", 20, 13,71 

930 DATA "EOFaFFFFFFFFFFFF", 20, 16,72, "OO 

OOOOFFFFFFFFFF" , 20, 1 7, 73, "000003FFFFFFFF 

FF",20. 18,74, "1F7FFFFFFFFFFFFF" 

940 DATA 20, 19,75, "FFFFFFFFFFFFFEFC", 20, 

21,76, "E0C0C08",20,22,77, "7F3F1FOF070301 

",21, 14, 7B, "FFFFFFFFFFFFFEFC ".21 

950 DATA 20,79, "FBFOEOC08", 21, 21,80, "3F1 

F070I",22, 15,81, "FFFFFFFF7F0F",22, 16,82, 

"FFFFFFFFFFFF3F" , 22, 17, 83 

960 DATA ,, FFFFFFFFFFFFF",22,1B.B4, "FFFFF 

FFEFBC",22, 19,85. "FOEOB" , 22, 20 

970 CALL CHAR(B6. "FFFFFFFFFFFFFFFF" > 

9B0 RESTORE 1030 

990 FOR 1=1 TO 35 

1OO0 READ POX.POY 

1010 CALL HCHAR(FDX.P0Y.B6) 

102G NEXT I 

1030 DATA 8.18,8,19,9,19,9,20,10,21,11,: 

1,11,13,12,20,12,21,12,22,13, 19,13,20,1: 

, 12,14,18,15,17, 16,15 

1040 DATA 16,16,16,22,17,13,17,14,17,15. 

17,22.18, 13, IB. 14, 18,22,19,14,19,21,20,: 

4,20, 15,20,20 

1050 DATA 21, 15.21, 16,21, 17,21, IB, 21 , 19 

1060 CALL COLORd. 2, 16) 

1070 FOR 1=2 TO 11 

1080 CALL COLORd, 10, 16) 

1090 NEXT I 

1100 FOR 1=12 TO 16 

1110 CALL COLORd, 2, 16) 

1120 NEXT I 

1 130 FOR 1=1 TO 2000 

1140 NEXT I 

1150 CALL SOUND (200, 200,0) 

1160 CALL CLEAR 

1170 CALL S0UND(20O, 200,0) 

11 BO REM 

1 190 BOTO 1200 




1200 


REM 


#*.**«..»■ 


1210 


REM 


» LE JEU • 


1220 


REM 


**«»..»«.» 


1 230 


CALL 


CLEAR 


1240 


CALL 


CHAR< 128, "FF10101OFFB080B0") 


1250 


CALL 


CHAR(136, "OOOOOOOF 10202040") 


1260 


CALL 


CHARI 137, "OO0OOOCO3O1OOBOB") 




CALL 


CHAR ( 1 3B, " 4040404O4O202E01 H » 


I3M 


CALL 


CHAR ( 1 39 . "OB 1 4243B040808FB" > 


1290 


CALL 


CHAR (140, "AB80ABFBFB") 


1300 


CALL 


CHAR ( 1 44 , " 1 8 1 BOC3A0B 141632" ) 


1310 


CALL 


C0L0R!13,2,7> 


1320 


CM L 


C0L0RU4.2.1) 


1330 


CALL 


CDL0RI15.5, 1) 


1340 


CALL 


SCREEN (16) 


1350 


CALL 


HCHAR(2,3, 128,29) 


1360 


CM 1. 


HCHAR(3, 3,128.29) 


1370 


CALL 


HCHAR(4,3, 128.29) 


1 ISO 


CALL 


HCHAR(5,2, 136) 


1390 


CALL 


HCHAR(5,3, 137) 


1400 


CALL 


HCHARI6.2. 138) 


1410 


CALL 


HCHAR(6,3. 139) 


1420 


CALL 


HCHARI7.3, 140> 


1430 


CALL 


HCHAR(B,3. 128.29) 




CALL 


HCHAR(9,3, 128,29) 


1450 


CALL 


HCHAR(10,3,128,29) 


1440 


CALL 


CHAR (152, "1O1O1038387CFE44") 


1470 


CALL 


C0L0RI16, 11,1) 


1480 


CALL 


COLORd. 1,1) 


1490 


CALL 


HCHARI4, 11,32) 


1500 


CALL 


HCHAR(4.24,32> 


1 3 1 


CAUL 


HCHARI8.5, 152) 


1320 


CALL 


HCHAR!B. 16,32) 


1530 


CALL 


HCHAR(8,31.32) 


1540 


CALL 


HCHAR(8.32. 144) 


1550 


FOR 


=1 TO 12 


1560 


CALL 


COLORd, 2. 16) 


1570 


NEXT 




! 5B<'> 


A*="FRENDS L'APPAREIL JAUNE EN" 


1390 


LI-18 


1600 


C0=2 




1610 


GOSUB 400 


1620 


A«="EVITANT LES JETS D" " 



1630 LI =20 

1640 C0"4 

1650 GOSUB 400 

1660 A»="ECTOPLASME. BONNE CHANCE!" 

1670 LI -22 

1680 C0=4 

1690 BOSUB 400 

1700 A*="TOUCHES E,X,S,D" 

1710 LI=24 

1720 CO="B 

1730 GOSUB 400 

1740 FOR 1=1 TO 1000 

1750 NEXT I 

1760 CALL CHAR(153, "00003E41B1621E" 

1770 FOR I=IB TO 24 STEP 2 

17S0 CALL HCHAR(I,2,32,30) 

1790 NEXT I 

1BO0 CALL S0UND(2OOO, 1000.5,-8,0) 

1810 V1E-3 

1820 X=B 

1B30 X1=B 

1B40 Y>32 

1850 

1 260 

1870 

1880 ; 

1890 : 

1900 ' 

1910 ' 



1930 X=8 

1940 XI =8 

1950 Y=32 

1960 Yl=32 

1970 GOSUB 2400 

1-980 RANDOMIZE 

1990 RAN=(INT(HND*10)*3)+1 

2000 R0N=INT(RND«10) 

2010 IF (RON<>l>«(RQN<>2)«-(R0N<>3)THEN 2 

OOO 

2020 CALL HCHAR(4+RDN.4, 153, RAN) 

2030 CALL SOUND(-100, 1000,5,-8,0) 

2040 CALL HCHAR(4+R0N,4,32.RAN) 

2050 CALL GCHAR(X1,Y1,RE> 

2060 IF RE<>32 THEN 2210 

2070 VIE-VIE-1 

2080 CALL S0UND(2000,-5,0,2O0.3) 

2090 A*="ET DE" 

2100 LI=1B 

2110 C0=3 

2120 GOSUB 400 

2130 A*=STRS I3-*VIE) 

2140 LI=18 

2150 C0»9 

2160 BOSUB 400 

2170 FOR 1=1 TO 500 

2180 NEXT I 

2190 CALL HCHAR(18,3,32, U) 

2200 GOTO 1B60 

2210 CALL KEY(0,K,S> 

2220 IF 5=0 THEN 1980 

2230 IF KOB3 THEN 2270 

2240 Y1=Y-1 

2250 GOSUB 2460 

2260 BOTO 1980 

2270 IF K<>6B THEN 2310 

2280 Y1=Y+1 

2290 GOSUB 2460 

2300 BOTO 1980 

2310 IF KOBB THEN 2350 

2320 X1=X*1 

2330 GOSUB 2440 

2340 BOTO 1980 

2350 IF K069 THEN 1980 

2360 Xl-X-1 

2370 GOSUB 2460 

23B0 GOTO 19B0 

2390 REM »AFFICHAEE» 

2400 CALL HCHAR(X,Y,32) 

2410 CALL HCHARfXl, Yl, 144) 

2420 X-Xl 

2430 Y-Yl 

2440 RETURN 

2450 REM VALID, DEPLACEM. 

2460 IF (Y1>32>+(Y1<3)+<X1<4>+(X1>B>TMEN 

2710 
2470 CALL 8CHAR (XI , Yl , Rl ) 
2480 IF Rl=128 THEN 2710 
2490 IF R10152 THEN 2720 



CETAI" 



PAS SI OUR' 



25O0 A«="AL0R5 

2310 LI-18 

2520 C0=2 

2330 80SUB 400 

2540 GOTO 2740 

2550 A»""ON RECOMMENCE? 0/N" 

2540 LI =20 

2570 CO-5 

2380 GOSUB 400 

2590 CALL KEYIO.K.S) 

2400 IF S-0 THEN 2590 

2610 IF (K=4B)+<K-79>+(K=lll)TH£N 2620 E 

LSE 2630 

2620 GOTO 12O0 

2630 IF (K>7B)+(K=110)THEN 2640 ELSE 239 



2640 A»-"TROUILLARD' " 

2630 LI =72 

2660 CO-3 

2470 GOSUB 400 

2480 FOR 1-1 TO 1000 

2490 NEXT I 

2700 END 

2710 RETURN 

2720 GOSUB 2400 

2730 RETURN 

2740 FOR 1=1 TO 1000 

2730 NEXT I 

2760 CALL CLEAR 

2770 FOR 1=1 TO 16 

2780 CALL COLOR ( I , 16, 16) 

2790 NEXT I 

2B00 CALL SCREEN(16> 

2810 PRINT "BON, BEN MAINTENANT, PASSONS"! 

2B20 PRINT "AUX CHOSES SERIEUSES. . . " 

2B30 PRINT n"TU D0I8 SAUVER LA TERRE"i : 

2840 PRINT "AVEC L'APPAREIL JAUNE.":: 

2830 PRINT "TIRE CHAOUE FANTOME AVEC":: 

2860 PRINT "L'APPAREIL APPROPRIEi " : I 

2870 PRINT !:"TOUCHES E,S,D,X OF COURSE! 

2880 FOR 1=1 TO 12 

2890 CALL COLOR (1,5, 16) 

2900 NEXT 1 

2910 FOR 1=1 TO 30O0 

2920 NEXT I 

2930 RESTORE 3000 

2940 CALL CLEAR 

2950 FOR 1=1 TO 30 

2960 READ NO,DEF*,LIG.CQL 

2970 CALL CHAR (NO, DEF*) 

2980 CALL HCHAR (LIB, COL. NO) 

2990 NEXT I 

3000 DATA 128, "9F9F1E0C08O70101", 10, 13, 1 

29, "BOaOBOOOOOOOOOE", 10, 16, 130, "03030707 

0FOFOFO7", 11, 15, 131 

3010 data "fofcffffffffffff' 
ooooboeofofofofo", 11,17, 133, "0707030301 ■ 
, 12, 15, 134, "fffffffffffffff: 

3020 data 12, 16. 135, "eoeoeoc1c1b1810 




MFA<>3)( 



(FA<>4> 



0101030303" 
FFEF8F8F0EOCOC0", 13, 16, 13B 
3030 DATA "0707070604008060' 
00000000030F3F7F",9, 15. 140, 
COeO", 9, 16,141 

3040 DATA "O0000OOOC03"0OC0; 
000010204040808", 10. 14,143, ' 
144,"000080402020101". 10.18 



13,: 



46, "080808 : 

040707078 ",12,14,148 

3060 DATA "02FEFEFEFEFEFEFE", 12, IB. : 

7070303030101010". 13, 14, 150, "FEFE3C1C1C1 

B1B18", 13, 18. 151 

3070 DATA "080804040201 ", 1 4, 14. 152, "8080 

", 14, 16, 153, "0000000000000106", 14, 17, 154 

, "10102020408" 

3080 DATA 14, 18. 155, "100C03", 15. 15, 156, " 

O000B17E", 15. 16, 137, "0830C", 15,17 

3090 CALL SCREEN (5) 

3100 FOR 1=13 TO 16 

3110 CALL COLORd, 7, 5) 

3120 NEXT I 

3130 CALL COLORd, 5, 5) 

3140 CALL CHAR (96, "44FE7C383B101010" ) 

3150 CALL CHAR(104,"3B7C7CD6EEEEFEAA") 

3160 CALL CHAR(97, " 1010103B387CFE44 " ) 

3170 CALL CHAR(98, "40E0787F78E04" ) 

3180 CALL CHAR(99, "04071EFE1E0702") 

3190 CALL COLOR(9,11,5) 

3200 CALL COLOR < 10, 16,5) 

3210 CALL HCHAR(7, 16,97) 

3220 CALL HCHAR (12, 1 2, 99> 

3230 CALL HCHAR(12,20,98) 

3240 CALL HCHAR ( 17, 16, 96) 

3250 VIE=3 

3260 NB=0 

3270 FOR 1-1 TO fl 

3280 CALL COLORd, 2,5) 

3290 NEXT I 

3300 CALL CHARdOO, "100B1008100B100B") 

3310 CALL CHARdOl, "OOOOOOAASS") 

3320 IF (NB<40)*(VIE>0)THEN 3330 ELSE 4C 

OO 

3330 RANDOMIZE 

3340 FA«INT(RND«10) 

3350 IF IFA<>l)*(FA<>2)( 

HEN 3340 

3360 IF FAOl THEN 3390 

3370 CALL HCHAR (12, 6, 104) 

3380 GOTO 3460 

3390 IF FA<>2 THEN 3420 

3400 CALL HCHAR(I,16, 104) 

3410 GOTO 3460 

3420 IF FA<>3 THEN 3430 

3430 CALL HCHAR ( 12, 24, 104) 

3440 BOTO 3460 

3430 CALL HCHAR (23, 16, 104) 

3460 FOR 1=1 TO 70 

3470 NEXT I 

34B0 CALL KEY(0,K,S> 

3490 IF 300 THEN 3480 

3B0G CALL COUND(£000« O.oi 

3310 VIE=VIE-1 

3520 A«-"ET DE" 

3530 LI "24 

3340 C0=5 

3550 BOSUB 400 

3560 A»»STR«(3-VIE: 

3570 LI-24 

3580 CO- 12 

3590 GOSUB 400 

3600 FOR 1=1 TO 500 

3610 NEXT I 

3620 CALL HCHAR (24. 5, 32, 20) 

3630 CALL HCHAR ( 1 , 16, 32) 

3640 CALL HCHAR (1 2, 6, 32) 

3650 CALL HCHAR (12, 26, 32) 

3660 CALL HCHAR (23, 16, 32) 

3670 GOTO 3320 

3680 IF (K-69)*(FA=2>THEN 3690 ELSE 3760 

3690 FOR J=6 TO 1 STEP -1 

3700 CALL HCHAR(J,16,100) 

3710 CALL HCHARIJ, 14,32) 

3720 NEXT J 

3730 CALL SOUND(-10,400,0.-3,5) 

3740 NB-NB+1 

3750 GOTO 3320 

3740 IF <K=83>«(FA=1>THEN 3770 ELSE 3B40 

3770 FOR J-ll TO 4 STEP -1 

3780 CALL HCHAR (12, J , 101 ) 

3790 CALL HCHAR ( 12, J, 32) 

3BOO NEXT J 

3810 CALL SDUND(-10, 400,0,-3,5) 

3B20 NB-NB+1 

3830 GOTO 3320 

3B40 IF (K»6B)»(FA=*3)THEN 3850 ELSE 3920 

3830 FOR J=21 TO 26 

3860 CALL HCHAR(12, J, 101) 

3B70 CALL HCHARI 12,J,32) 

3880 NEXT J 

3B90 CALL S0UND(-10, 400,0,-3,5) 

3900 NB=NB+1 

3910 GOTO 3320 

3920 IF (K=88)«(FA=4>THBN 3930 ELSE 3300 

3930 FOR J=1B TO 23 

3940 CALL HCHAR ( J, 16, lOO) 

3950 CALL HCHAR (J , 16, 32) 

3960 NEXT J 

3970 CALL SOUND (-10, 400, O, -3, 5) 

3980 NB-NB+1 

3990 GOTO 3320 

4000 IF (NB<40>»IVIE=0>THEN 4O90 

4010 A»-"T'ES MORT DE CUL. MON VIEUX ! 

4020 LI=24 

4030 C0=2 

4040 GOSUB 400 

4050 FOR 1-1 TO 200 

4060 NEXT I 

4070 CALL HCHAR (24, 2,32,30) 

40B0 BOTO 2550 

4090 A»="MEME CA T'ES PAG CAPABLE 7" 

4100 LI-24 

4110 C0=2 

4120 BOSUB 400 

4130 FOR 1=1 TO 200 

4140 NEXT I 

4150 CALL HCHAR(24,2,32.30) 

4160 A«="AVALER LE TI ME BERT A RIEN!' 

4170 LI =24 

4180 CD-I 

4190 GOSUB 400 

4200 FDR 1=1 TO 200 

4210 NEXT I 

4220 CALL HCHAR (24, 1,32, 31) 

4230 GOTO 2530 



YAMS 



FX 702P 



Vous avez encore egare vos des 9 Ne les cherchez 
plus, votre FX se charge de tout. 



Se (oue a deux irjueurs Le programme lance les des. venfle qu ll 
n y a pas de Irlchene el indique le joueur gagnanl 

But du |eu: 

Trois coups de des maximum pour choisir la case a remplir, sachant 

quune partie est terminee lorsque toutes les cases sont remplies. 



Case 1 : Nombre de points = 01 x nombre de des portant le numero l 

Case 2: Nombre de points = 02 x nombre de des portant le numero 2 

Case 3: Nombre de points = 03 x nombre de des portant le numero 3 

Case 4: Nombre de points = 04 x nombre de des portant le numero 4 

Case 5: Nombre de points = 05 x nombre de des portant le numero 5 

Case 6: Nombre de points = 06 x nombre de des portant le numero 6 

Case FULL: Nombre de points ■ 20 si on a un FULL 

Case SUITE: Nombre de points ■ 30 si on a un SUITE 

Case YAMS: Nombre de points = 40 si on a 5 des identiques 

Case PLUS: Nombre de points = somme des numeros de tous les des 

Case MOINS: Nombre de points = somme des numeros de tous les des 



FULL = 3 des identiques el deux autres identiques {exempie: 

1.1.1.2.2) 

SUITE = 5 des qui se sulvenl (exempie: 2.3.4.5.6) 

En (in de parlie. on (ait la somme des points des 6 premieres cases. 

si le total est superieur ou egal a 60 On a droit a 30 points de 

bonus On ajoute ensuite les poinls des cases FULL SUITE et YAM 

et on soustrail du total la dilference enlre les cases PLUS et MOINS 

(done le meilleur score pour les cases PLUS et MOINS esl realise 

lorsque : case PLUS • case MOINS ■ 1) 

Utilisation du programme 

Apres lancement. atfichage 

ler JOUEUR. 

ler TIRAGE, 

24513: 123456FSYPM ? 

Les 5 premiers chiffres correspondenl aux 5 des jeles du ter loueur. 

les autres correspondent aux cases libres. Si on veut jeter les 2 des 

5 et 3. (aire 53 (EXE) ou 35 (EXE) dans nlmporte quel ordre. sa- 

cnant qu un chiflre correspond a un seul de Pour jeter tous les des. 

soit taper tous les chiffres (EXE) soil taper X(EXE) On garde lous 

les des en tapant 0(EXE) 

A la fin du 3eme lance. I'indicateur STOP sallume et le : esl rem- 

place par ' Une decision prise, appuyer sur CONT. 

Affichage quelle case ? Rentrer le numero de la case (1 a 6 ou 

F.S.Y.P.M) (EXE). 

Affichage : CASE ANNULEE (O N) ?. SI on doule de reussir une 

case ou si on ne peut (aire autrement. 

Toutes les cases remplies. la partie se (ermine et affiche les tolaux 

des deux joueurs. 




list "tuns" 

1 VAC :2=29:t="12 
3456FSYPH"s*=«* 
l:VI=" JOUEUR" : 
F=?:S=8:V=9 

2 P= 1 e : H= 1 1 : HftI T 
Z:PRT "1ER":V1: 
H=3:H=P:60TU 4 

3 Nflll Z:PRT "2N[> 
";V*:H=35:M=21 

4 U=H-?:PRT "1ER 
TIKft6E=":Ft)R C= 
6 TO 4: Git: 34 

5 X=X»PtC«fl<C):NE 
XTC 



6 PRT X;":";MID(U 
,H>;:INP E:IF E 
=8 THEN 2b 

16 FOR R=l 10 5:6= 
INI lP>FRBC W 
P1R:IF 6=8 THEN 
13 

11 FOR C=5T0 9: IF 

6=A(C):A(06: 
C=9 

12 NEXT CtNEXT R 

13 FOR C=6 TO 4 

14 IF n<c+5)»fl;x=x 

-PtC<H(C):6S6 3 
4:X=X»PtC«A(0 



15 NEXT CMF H=6;H 
=l:S0T0 6 

16 PRT X;">«";HI[K 
U,N):ST0f 

28 INP "OUELLE CAS 
E",It|=lNT 1:0= 
UN:T=0-P:IF I* 
(1-12*6 THEN 26 

21 IF rl(0)»6:PRT " 
CASE PRIS£":60T 
26 

22 PRT "CASE ANNUL 
EE (0/N)?" 

23 IF KV="0";A(0) 
=lf-9:60T0 Z 



24 IF KEY="" THEN 

2 1 

26 FRT :IF I>6 TNE 
H 38**1-5 

27 FOR C=8 TO 4: IF 

AiC)=I;A(0)=A' 
0H1 

28 NEXT C:A(0)=AlO 
)»U-9 

29 IF T=l,t="t"*M 
D(2>:60TO 33 

38 IF T=22!$=HID(1 
,21 )«"••: 60T0 3 
3 

31 l=«ID(l,T-li*"> 



"*HINT»1> 

33 N=6:X=6:60T0 N 

34 B=INT (RANI»6tl 
:A(C)=B:A(Ct5)= 
6:RET 

35 FOR 1=11111 21: 1 
F B(I)=8 THEN 2 

36 NEXT I 

37 A8=6:fll=6:B=P:H 
=8:JS='1ER":6S6 

45:H=21:H=l:«f 
="2N!i":6S8 45 

39 IF 86>B1:61="IE 
R" 

46 IF 68=hl:PRT "E 



6fiLITE:":A8:ENC 
41 PRT "LE ";6»;V« 

!" 68GNE":END 
45 FOR l=l»N TO 6* 

H:R(NJ=A(H)*B!I 

JiNEXT I 
47 IF B(H)lMl«(H) 

=BtH)t30 
49 iH'-litT (B(H)t 

B(7tN))ft<8«U)«B 

'9»Hi-fiBS (BlP* 

Uj-HtM+K) 

56 PRT M;V$,"T0TA 
L FINAL:";AlH.>: 
RET 



55 FOR C=6 TO 4:A( 

C')=A(0>tfllC):HE 

XT C:RET 
66 J=A6:K=l:8S6 88 

:J=L:6S6 86 
62 IF k=5:fli0i=26: 

GOTO 2 
64 PRT "PAS OE FJL 

L":60T0 28 
86 FOR 1=1 TO 4: IF 
fi<C>=J.K=K*l:M 

EXT C:RET 
62 L=ft(C):HEXT C:R 

ET 
98 FOR C=5 TO p:»( 



C)=6:NEXT C 

91 C=5:A5=6:F0R R= 
6 TO 4:«<A(R;»4 
)=A(R):HEXT R 

92 IF A5=6;C=6 

93 FOR R=C TO 03: 
IF A(Ri<A(R»l)- 
llPRT "PAS DE S 
UITE":60T0 28 

94 NEXT R:AlO)=38: 
6010 2 

128 IF FRAC (X'llll 
1=8;A(0)=46:60T 
02 

122 PRT "PUS OE VAN 



S":60T0 26 
156 6SB 55: IF A(0» 

KM) TNENZ 
152 fl(0)=6:PRT "PLU 

SiH0INS":60T0 2 

8 
186 6SB 55: IF 6(0-1 

)=B(0>:IF 6(0-1 

ill THEN 152 
182 60T0 Z • 




SYNTHETISEUR 



CANON X07 



Petit CANON par ses talents 

Fait bien souvent mieux que les grands. 

Stephane MADRANGE 



Mode d'emploi: 

Ce programme, outre laffichage du dotgte d execution sur un cla- 
vier, offre les possibihtes de sauvegarde sur cassette et dimpres- 
sions des codes MUSIQUE sur impnmante X 710 
Les commandes el les explications necessaires soni mcluses. 



ENT A MODIFIER LA DUREE DES NOTES 

";0OSUB5O0 
ZOO PRINT'LES FLECHES BA5 ET HAUT 
SERVENT A CHANGER D'QCTAVE 



310 PRINT 
SPOND A UK 
Si -'G0SUB300 

220 PRINT-LA TOUCHE 'P' SERT A IMP 
RIMER LA LISTE DES CODES DES NOTES 

-:GOSUB3oo 
230 PRINTAINS1 QUE LEUR DUREE. 

":G05UBSO0 
240 PRINT-LA TOUCHE "E'SERT A ENRE 
GISTRER UN MORCEAU SUR CASSETTE 

■ 1G05UB300 
250 PRINT-LA TOUCHE 'A'SERT A APPE 
LER UN MORCEAU DEJA SUR CASSETTE 

":GOSUB5O0 
260 PRINT-LA TOUCHE 'S'SEPT A ARRE 
TER UNE COMPOSITION ET LA REPRENDR 
E ' : G0SUB500 

?-"3 ppint-en appuyant sur 'on' 

-:gosubsoo 
280 print-apres chahue mohceaupour 

en jouer un autre appuyez sur ■»' 




(COPYRIGHT I /83* 

■■ SYNTHETISEUR t 



TIALISATION 



3 CLS:DEFINTA-Z:PRInT:PRINT- ST 

NTHETISEUR- 

5 PRINT"APP<JYEZ SUR RETURN"! 

B J-242:OUT243,0:0UT244,7B 
20 FOPI«OT0255:0UTJ, I : OUT J, 233- I :N 
EXT 

30 I*-INKEY»: IF1»-"TMEN20ELSEOUT2 
44,0 

30 CLSlPRINT-DESlREZ VOUS LIRE LAN 
OTICE'* 

60 i«-inkey»: ifi«< >-0-andi«< >-n-th 

en60else i f i *• - n - th6n1 000 

100 cls:print-ce petit programme 

wa vous permettre d'utiliser -:g 

0SUB3OO 

10 PRINT-VOTHE X-07 C0MME CLAV 

ERIVOUS JOUE2 AVEC LES TOUCHES ■ 

G0SUB500 

20 PRINT-2SKDCVGBHNJM,L. I /' SUE 
VOUS VERREZ JOUER SUR LE CLAVIER*: 
G03UB300 

30 PRINT-LA' TOUCHE ■-■ SERT AREJO 
UER LE MORCEAU EN ENT IER" : 00SUB30 

10 PRINT-LA TOUCHE '-'SERT A REJO 
UER LE MORCEAU AUTANT DE E0I5*:G0 
SUBS 00 

30 print'ou'on le desire. 

- :gosubsoo 

60 print-la touche 's'sept a effa 

er les fausses notes 

H :G0SUB30O 

70 PRINT-LA TOUCHE O'SERT A REPR 
ENDRE LE MORCEAU A LA 5UITE APRES 
"1GOSUB30O 

=RINT-L'AVOIR ECOUTE 



300 GOTOIOOO 

498 ' TEMPORISATION 



300 F0RI-IT0700! IFINKEY»< >--tHEI 

7oo: next :retu«nelsenext: re turn 
000 ■•»»*»»»»**»»» 

003 '«tGRAPHISME*» 



DI8 


cls:line 


8,91 - IB 


30 


020 


F0RI-14T0104STEP6 


031 


LINE' 1,9 


-11,30! 




033 


IFI-260R 


-300RI- 


BO 


0THEN1040ELS 


LINEII- 


,? 


03* 


L I NE 1 I • 1 


91-11*1 


30 



NEXTK, I 

4997 ' •« 

4998 '4ENTREE DES* ■* NOTE 
S •* »AU CLAVIER* 

4999 ' ************ 

3000 DUR-3 

300 1 I - 

3002 K-0:CONSOI.E, , ,0, l 

3003 on err0rg0t03ss0 

3004 ifx-othendimtisoo) ix-1 

3003 locateo,o:print- micro-synthe 

TISEUR- 

3006 A*-INKEY«: IFA9-- -THEN3006ELSE 
A-0:9--l 

3007 IFA«--»'THENI-I-3:G0SUB3300:G 
0TO3O06 

3011 ifa»--z-thena-3:p0-10:0-0 

3012 ifa»--s-thena-4:p0-14:s>1 

3013 ifa«--x-thena~3:po>16:8-0 

3014 ifa*--d-thena-6:po-2o:q>i 
3013 ifa«»-c-thena"7:po"22:0-0 

3016 IFA«--VTHENA-a:P0-28:8-0 

3017 IFA«-"G-THENA-0:P0-32:O-l 

soi a ifa«"-b-thena-io:po"34:b-o 

5019 IFA»--H-THENA«1 l : PO-39; Q- 1 

3020 ifa«"-n-thena"12:po»4o:q-o 

3021 IFA««" J -THENA-13; PO-44: a«l 

5022 IFA«--M-THENA-14:PO-46:a-0 

5023 IFA*~-L'THENA>i6:P0-36: B-l 
3024 IFA*>- , -TMENA-I 7:P0-3B: B-0 

3023 ifa«»- i "thena«ib:p0"62: o«i 

3026 ifa««-/ -thena"i_9:po"64:8"0 

3027 ifa». -''-thena-20 

3100 if a»- ■■ , -thena>i5:po*32:q>o 

3196 '»*•»•*•••**•* 

3197 ' *CHANQEMENT*« »D'OCTAV 
E ET* * DE DUREE 4 

S19S ............. 



NEXT 
030 LINEI8.311 - I 1 10,31) 
032 LINEIB.ei - (110, Bl 

INE U 10, 91 -(110, 30I 
300 X"242tY-243;0UTY,0:0UTX,0:0UT 

781310 F0RI-1T07 
320 F0RJ-0T01310UTY, J 
323 FORK-OT03:NEXTK, J, l:0UT244,0 

3RI-1T04:LOCATEO,0:PRINT- Ml 

1TMETISEUR- 



3200 C -STICK 101 :tJCT-0CT.12»!C-3) -1 

2VIC-11 :DUR-DUR> (C-31 -1C"7I 

S20S IF(OCT(-12)AND(OCT>-OITHENN1V 

-0CT442/I2ELSE0--1 

3210 IF0CT(OTHENOCT-0:ELSEIF0CT)24 

THENOCT-36 

521 I IFDUP' ITHENDUR-1 

3212 IFA*-- "THENA-S3S:0--1 

3213 1FAV----THEN6000 
3213 IFA-0THEN3006 

3216 IFA-3S3THENGOSUB7000: I'I'SITI 

i i-o: t 1 1 <i i -dur: t ii>2i*o: t u-3i -o: 



3217 IFA-53STHENOOT03006 

3218 IFA*0CT>48THEN3006 

3220 BEEPAtOCT, DUR: 1F0-0THENG0SUB5 
700ELSE I F0( > - 1 THENG0SUB3600 

3221 I-I*3:T(I)-A*0CT:T<I*1 I -DUR: T 

(i»2i-po:T( ] *3)-b:t< hii-niw 

3230 GOT 03006 

3300 BEEP12, l:BEEP23, l:BEEP33, 1 : RE 

TURN 

3330 RE5UME3003 

3700 LINE (P0-l.NIy.27f - IPC- 1 .NIV, ; 

9) :G0SUB5900 

3710 PRESETIPO»l*NIV,27J ; PRESET IPO 

*1*NIV,28J : PRESET (P0*1»NIV, 291 :RET 

URN 

3800 PRESET (PO'NIV, 171 : PRESET <PO»N 

IV, 1BI : PRESET IPO«NIV, 191 : G0SUB3900 

saio line(pd*niv,i9i-ipo»niv,i7):r 

3900 F0R«-0T07:NEXTW: return 

6000 FORJ-0T0ISTEP3 

6010 IFK3THENNEXT 

6013 IFI(3THENaQT05003 

6020 A-T 1 3 I :DUR-Tl J»l ) ;PO-T ( J«ZI :B 

-TIJ*3) :NIV-T(J*41 ! IFA-0THENG0SUB7 

000: NEXT 

6022 IFDUR-0THENNEXT:G0T0S003 

603o beepa,dur! ifo-otheng0subs7ooe 

LSE I F9- 1 THENG0SUB3800 

6033 NEXTJ: '00SUB7000! -FQR0-1TO30: 

'NEXTO, J 

6040 S«-1NKEY»: IFS«----THEN6000ELS 

E IFS»-- - - THEN3003ELSE IFS*- -O* THEN3 

006 

6030 IFS*--P-THEN10000ELSEIFSm--E' 

THEN 1I0OOELSE IFS*- -S-THENSLEEP 

6060 IPS*-'A'THEN12000EL6E6040 

7000 FORO-1T03*DUR:NEXTO:RETURN 

9000 FORI- I TD3O0: NtX I : RETURN 

9997 '***«-* »»n,m 

999B '*50RTIE SUR * AIMPRIMA 



10000 LOCATED, O: PRINT- INPRIMANTE I 
100 10 I4-INKEY4: IFt*O"0-ANDIS<>* 

•then10010elseifi«-*n-then3000 
10020 cls: input'nom du m0rceau"in 
:lprint[2,oi* nom du morceau 



0040 F0RJ-5T0ISTEP3 
0043 IFT Ul >9THEN100! 
0030 LPPINT- 



006O nextj:gotoiooo 

0997 ' .H...illtn 

0998 ' *SAUVEGARDEft 



1o00 m»-- magneto pret pour i 
nregistrement:appuyez sur -return 

1010 F0RJ«1TO40:L0CATE0,0:f 
»(M*. J, 20 1 :F0RK-lT030:NEXTh 
1016 BEEP14.3 

1020 Im-INKEY*: IPI«< >CHP»il 
1020 

1030 forj-itoioo:nextj 

1040 INITBl, -CASO! - 
1050 E0RJ=1T0S00 
1060 0UTH1 , T ( Jl :NEXTJ 

1070 LOCATED, 0:PRINT- TERMlr 

1080 fork«ito30o:ne»;tk 
1090 locateo,0:print' micrc 

TISEUR "i 
11O0 G0T0604O 



2004 0NERRORG0T0I3O0O 
2003 FORJ-ITO37iL0CATE0,O:PRlNl 
D*l»», J, 201 : FORK- 1T030: NEXTK, J 

2006 beepi4,3:fork-itoioo:nextI' 

2007 Is-INKEY*: 1FI*< >CHR»t i 31 Tk 
2O07 
2010 IN1TH1, -CASI: " 

2020 FORJ-1I0500 

2030 u-inpihii:tiji-u:next] 
2040 beepi4, io:locateo,o:print- 

6Z 5UR '-' "1 :F0RK-1T0IO0iN 

2030 LOCATEO, 0:PRINT- MICRO-SYfi 

TISEUR-1 

206O G0T0604O 

30oo printerl:End 



AMYTIVILLE 



Voici un (petit) jeu d'aventure (NDTA : Ca change des 
envahisseurs et des hommes paquets !) qui vous em- 
menera a lintfjrieur dun manoir bien etrange. Votre but 
est den ressortir. A vous de trouver lunique moyen. 



SUITE DUN' 76 

2100 HOME l PRINT : PRINT "Uoui 



2113 IF C3 - D THEN PRINT ■ 4* 

;B»<I9) 
2117 G0SU6 140 
2120 IF 1 - 1 THEN 2000 
2130 IF I - 2 THEN 2600 
2133 IF I » 3 THEN 2200 
2140 IF 1 < ) 4 THEN 2100 
2143 IF C3 - 1 THEN 2100 
2130 IF CO - AND CL - THEN 
PRINT : PRINT 'Uoui n'y par 

utnt! pu.'l FOR I • 1 TO 20 

00: NEXT : GOTO 2100 
2160 PRINT *Uotr* cl* ouur* I* 

CHllltt. El It eontitnt 7 p< 

*c*i d'or.*:PQ ■ PO ♦ 7:C3 * 

1 
2170 FOR 1 ■ 1 TO 2700: NEXT : GOTO 

2100 
2190 REM it* ifimiMx 



N.GOHIN et X.LERAY 



2430 PRINT i PRINT TAB< 1 > " 1 
Un full! d* Chat!*': PRINT 
TAB( 10)* 2 Un r*uol«*r*: PRINT 
TAB< 101' 3 Un coup*-coup*" 
: PRINT : GET B«:A n UAl b 
») : IF A ( 1 OR A i 3 THEN 2 
420 



2192 REM <•*•!• ••!••• 

2200 HOME : PRINT : PRINT *Uoui 






mu r 



a, I 



2 un ptti I tic*: PRINT -poi* 
lur un icon..*: PRINT 
2210 PRINT • l'{Bt<3> 
2215 IF SS « THEN PRINT ■ 2 

Uoui pr*n*i I* lie': GOSUB 1 

40 
2220 IF 1 - 1 THEN 2100 
2230 IF I < ) 2 THEN 2200 
2240 HOME : PRINT : PRINT *Voui 

qui *4it d*ic*ndrt 1* plifo 
nd.'i PRINT "Pour t'arr*t*r, 
pr*tt*i 1* bonn* touch*.*: FOR 
I - 1 TO 2000: NEXT 
2230 NORMAL : HOME iXX - 1 : INVERSE 

2240 UTAB XX! PRINT SPC< 80) ; i 
XX > XX * I 

2243 FOR I - 1 TO 10 

2270 IF PEEK ( - 14384J - 211 THEN 
2290 

2271 X - PEEK ( - 10334): NEXT 
I 

2275 IF XX * 24 THEN PRINT ' 

TR0P TAR0 ! ! ! ■ I FOR I " 1 TO 
2000: NEXT : HOME : GOTO 270 

2280 S * - !4334rX - PEEK (5) - 
PEEK <5) • PEEK (8> - PEEK 
(S)i GOTO 2260 
2290 HOME : PRINT : PRINT "Brau 

": PRINT -Lt tic content du 
Ilt>lt.*i FOR I - I TO 3000: 
NEXT :SS * I: 00T0 2100 
2295 REM I.IIII.II.IIIIH 



U.C. 



2300 HOME ; PRINT : PRINT 'Uoui 
ttts dim It* U.C. Uoul*z-u 

out vous toulagtr ? ■ j; GET 

M 
2310 IF W - *H' THEN 2500 
2320 IF M < ) -0" THEN 2300 
2322 IF UC « I THEN PRINT : PRINT 

'April vous ttrt toulagt, vo 



. It 



uTo 



.*: FOR 1 « 1 TO 2300: NEXT 
: GOTO 2300 
2325 PRINT ; PRINT A»: FOR I * 

1 TO 2000; NEXT : 'PRINT : PRINT 



2400 HOME : PRINT : PRINT "Voui 

2402 IF CH » THEN PRINT "Nil 
s'y trouutnt lont": PRINT •» 

2405 PRINT : PRINT 
2410 PRINT • l'[B*<3): IF T ■ 1 
AND CH ■ THEN PRINT - 2 
Uoui coup** Its chain*i au*c 
vol t*na.H»f 

2412 IF CH « I THEN PRINT ' 3 

2413 GOSUB 140: IF I * 1 THEN 2 
300 

2415 IF I = 2 AND T = THEN 24 
00 

2414 IF 1 = 3 AND CH ■ 1 THEN 2 
420 

2417 IF I < ) 2 DR NA = 1 THEN 
2400 

2418 CH « I: PRINT : PRINT At: FOR 
I ■ 1 TO 2000 1 NEXT : GOTO 2 
400 

2420 HOME ! PRINT ; PRINT " Out 



2440 


ML 1 ■ 

HA -■ 


1 : 


IF 


A . 


OR A * 2 T 


MU = fl 
2450 C« = 

*: FOF 

GOTO 

2490 REM 


I 
24 

* . 





: PRINT : PRINT ■ 
d* prtndrt It ";C 
1 TO 2300: NEXT : 




BRAN 




Z4»] 
24)"2 


err: 


) COULOIR 


PRINT : 
« long 
: PRINT 




•■50 


HONE 

ttPS 


PRINT *Voui 
'Sur It nur 




ton 




cr 


oc h * ■ 


dti chandtl 




2510 : PRINT I PRINT ■ 1*;B*(1): 
PRINT ■ 2-;B»<4): PRINT ■ 3 
*iW(l3)T PRINT ■ 4-;B»(14): 
PRINT ■ 3'iWUS): PRINT ' 
6*{WU6): PRINT ■ 7';B»<l?i 
: PRINT ' B')Bt(IB) 
2520 IF BR - I AND CD ■ THEN 
PRINT * 9 Uoui *l lunti Its 



tt.' 

2330 GOSUB 140i IF ] 



THEN 2 



HB 



I PRINT | PRINT * l';B*<4>: PRINT 
■ 2 Uoui ttnttl dt I'ouunr* 
: IF SM - 1 AND CF - THEN 
PRINT ' 3 Vous (Ore*- 1* tt 



2015 GOSUB 140 

2B20 IF I ■ 1 THEN 2500 

2830 IF I ■ 2 THEN PRINT : PRINT 
-Vous uoui tltctroculti tn t 
ouch»nt It nrftal.-: FOR 1 » 
1 TO 3000: NEXT : GOTO 270 

2840 IF I - 3 AND SM = 1 AND CF 
a THEN PRINT i PRINT 'OK 
. C'tlt oui.fr ! . Lt C044rt co 
ntitnt 8 p. tcts d'or.-: FOR 
I - I TO 3100: NEXT :P0 ■ PO 
• 8:CF ■ I : GOTO 2B0Q 

2S50 GOTO 2800 

2890 REM ...... 



2333 IF I - 2 THEN 300 

2540 IF I » 3 THEN 2700 

2345 IF I - 4 THEN 2800 

2330 IF I - 3 THEN 3000 

2333 IF I - 6 THEN 2400 

2340 IF I a 7 THEN 2300 

2570 IF I = 8 THEN 2900 

2580 IF I < > 9 THEN 2500 

25B3 IF 8R » DR CO ■ I THEN 2 

300 
2390 PRINT i PRINT *Unt foil lt 
couloir tcU.rt, uoui iptrc 

tutl unt pttitt boitt': PRINT 

tnt 3 pitcts d'OR.-:P0 ■ P0 • 

5: CD - I 
2393 FOR I - 1 TO 3300: NEXT : GOTO 

2500 
2597 REM »«.••»......... ...... 



2600 HOME : PRINT : PRINT "Uoui 
• Iti dam unt chimbrt. Lt i 
I t ttmblt contorUblt .* 

2410 PRINT : PRINT ■ l'jBt<2>: PRINT 
■ 2'jBtJ(4): PRINT ' 3*ifl»<4> 
: PRINT " 4 Vous uoui ntpot* 

2620 GOSUB 160: IF I » 1 THEN 2 

500 

2630 IF I = 2 THEN 2100 

2640 IF I - 3 THEN 750 

2443 IF I C > 4 THEN 2600 

2630 PRINT : PRINT A«: FOR I - 

1 TO 2000: NEXT :KK ■ RND < 

2640 IF KK > .33 THEN PRINT 'C 

FOR I = 1 TO 2100: NEXT : GOTO 
2600 
2670 PRINT I PRINT 'Lt luitrt a 



70 

2490 REM 

2491 REM 

GE 
2692 REM 



PIECE TflES ETRAN 



2700 HOME : PRINT : PRINT *Uout 
•ntrt* dint unt pi*c* bitn 
*trmg*.': PRINT *Au m.litu 
d* Mlll-ei, s* trouvt un si 

2703 PRINT *Dtnt chaqut com. u 

nt ttitu* i*nblt uoui rtgird 

tr d'un oti 1 hoitil*.' 
2710 PRINT : PRINT ' |-;B«{4)i PRINT 

' 2";B»<22): GOSUB 160 
2713 IF I » 1 THEN 2500 
2720 IF I < ) 2 THEN 2700 
2730 HOME : PRINT : IF SS - I THEN 
PRINT "Rtmplacti-uous I* s* 

c par un autr* objtt ? "; GET 

M 
2735 IF SS - THEN 2753 
2740 IF 8* » '0- THEN 2730 
2743 IF B* < > "N 1 THEN GET ft 

•I GOTO 2740 
2747 GOTO 2755 

2730 PRINT i INPUT ■ LE0UEL 9 ' 
;B*: IF RIGHT* (B«,I2) - *S 

AC DE SABLE* THEN 2760 
2755 PRINT : PRINT 'Un rtyon lu 



d*i 



tt UOI 



d*sint*9r*.' : FOR'] ■ 1 TO 3 
500: NEXT : GOTO 270 

2760 PRINT : PRINT A» : FOR 1 * 

1 TO 2000: NEXT :SS » 0: PRINT 
: PRINT *C*t *>plCM t voui r a 
pportc 3 pilctt d'OR.*: FOR 
t = 1 TO 2500: NEXT :P0 » P0 
• 3i GOTO 2700 

27«0 REM »•*• •• 



SALLE DE BAINS 



2900 HOME : PRINT 



2910 IF ] - 1 THEN TA - 0: GOTO 

2300 
2920 IF I < > 2 OR B0 = 1 THEN 

TA - 0: GOTO 2900 
2930 TA ■ TA * I : IF TA * 3 THEN 
PRINT : PRINT *A fore* d'at 

bougtoir.': PRINT "Uoui I* p 
rtnti.':BO * 1 ! FOR I - I TO 
3000s NEXT : GOTO 2900 

2940 GOTO 2900 

Z7?S REM it******************* 



3000 HOME : PRINT ! PRINT "Voui 

un (lcalitr tn col intcon.' 

3010 PRINT : PRINT ■ 1*|W<4>: PRINT 

' 2*iB*<5> : GOSUB 140 

3020 IF I - 1 THEN 2500 

3030 IF I ( > 2 THEN 3000 

3100 HONE j PRINT : PRINT : PRINT 



-Vols 



■SCi 



urtri*r* 

Ittl pou 


tciair* par dt 
' : PRINT 'trop 
qut UOUI puill 


3110 PRINT 
* 1 Uoui 


Unt odtur tttid 
ip.*: PRINT : P 


3113 PRINT 


2 vous rtdtict 



3230 GOSUB 160: IF I = 1 THEN 3 

000 
3233 IF I = 2 THEN 3000 
3240 IF 1 = 3 AND SR = 1 AND BO 

= I THEN 3247 
3245 GOTO 3100 
3247 IF M = 1 THEN 31fl0 
3250 "*iNT : PRINT A»: FOR I = 

I TO 2000: NEXT : PRINT ; PRINT 
"Vdu4 > voyti tiiji ihkiw," ; PRINT 
•Sur u»e dt* mj-ch«, *ou*i t 
rou'-'tr unt boitt dt munition 

3235 LU = 1 

3260 IF NA » THEN PRINT : PRINT 

3270 IF NA = I THEN PRINT : PRINT 

■Uoui la prtnti.* 
3275 FOR I = 1 TO 4000: NEXT t M 

= I: GOTO 3100 
399Q REM 



REM BAGARRE DU GARAGE 
REM ' 



4000 HOME : PRINT 

4010 PRINT : PRINT * (II Vous ! 

t frappti': PRINT * <2) Vous 
fuzt**: PRINT : PRINT *> Qu 

t *ai t*i-«ous *'! GET B» 
4020 IF B* = '2' THEN FF ■ 1 : RETURN 

4030 IF B» < ) T THEN 4000 

4040 KK = RND (! i : IF KK > .4 THEN 
NT = l:FF = 0: PRINT "BRAVO 



4991 
4993 


REM 
REM 




GREN1ER 1 


PRINT 
grtn.t 




SUB 


HONE 


: PRINT 'Uoui 
r.': PRINT *l 


SBI0 


PRINT 


■lira 

PRINT 

en* lur 


'Un Ubifiu * 



5020 PRINT : PRINT * l';M(l): PRINT 
* 2';8*>(3); PRINT ■ 3-;B*<4) 
: PRINT ' 4*iB»t6): GOSUB 16 


5030 IF I - 1 AND RG - THEN 5 
200 

3032 IF I - 1 AND RG - I THEN 5 
300 

5040 IF I - 2 THEN 5100 

3050 IF I - 3 THEN 3130 

3040 IF I - 4 THEN 3100 

3070 GOTO 5000 

5I0O HOME : PRINT i PRINT *Uoul 
uoui approcht* d* li **n*tr 
t.": PRINT 'Sur It mur txttr 
nur, uoui pouuci uoir du II 

5110 PRINT : PRINT ■ I Uoui •«• 

*C*i d'ouurir la **n»tr*": PRINT 
' 2 Uoui rttournti au c*ntr* 
at la pile*': GOSUB 160 
5120 IF I - 2 THEN 5000 
3126 IF I < > 1 THEN 3100 
5130 PRINT : PRINT *La ftnttr* 
#t*it prottgO par un rayon 
laitr qui uoui a d*nnt*grt. 
■: FOR 1 » 1 TO 2900: NEXT : 
GOTO 270 
3150 HOME : UTAB 6: PRINT 'Uoui 
*t*i d*uant I* tableau. Lt 
iol I'ouurt iou* uoi pitdi.* 

5140 PRINT 'Uoui tomb* i dam un 
tnou *t n* pouu*i tn r*nor 
t . t . ' : GOTO 270 

5190 REM ■■•■ 

5191 REM PORTE 0U GRENIER 2 
3192 REM ...••••• 

5200 HOME : PRINT : PRINT *U ut 
*(*• dtuant I* i*cond gr*m 
*p.*s IF RG - THEN PRINT 

'La port* qui ..■ tn*n* tit (tr 

ml*.*: PRINT 
3210 PRINT * 1 Voui rttourncz a 

u centrt dt la pitc** 
3215 IF CL - I AND RG - THEN 
PRINT ' 2 Uoui ouur-; la po 

rtt aut* uotrt dtf * 
5220 GOSUB 140 
3230 IF I ■ 1 THEN 3000 
3240 IF I ( ) 2 THEN 3200 
5243 IF CL = 1 AND RG - THEN 

PRINT : PRINT A*! PRINT : PRINT 

.tr.': FOR I - 1 TO 3000: NEXT 

:RG - I: GOTO 5300 
5247 IF RG - 1 THEN 5300 
5250 GOTO 5200 

5290 REM 

5291 REM GRENIER 2 

5292 REN •« 

3300 HOME : PRINT : PRINT "Vou* 
•t*i d.ni 1* itcond or*ni»r 

5303 PRINT *II y a un vitux (41 
fuittur dam lt com nord-ti 
t .* 

5310 PRINT "Sur la tabl* qui it 

5315 PRINT *11 y a tut*) unt po 

5320 PRINT : PRINT ■ J a ;Bt<l'i PRINT 

' 2*iB«(2)T PRINT ■ 3";B*(4) 

: PRINT * 4';B*(13J: GOSUB 1 

40 
3330 IF 1 » 1 THEN 3400 
5340 IF I = 2 THEN 3000 
3350 IF I = 3 THEN 5400 
5340 IF I ■ 4 THEN 3300 
5380 GOTO 5300 
5400 HOME : PRINT : PRINT *Voui 

*t*t d*umt 1* balanct.*: PRINT 

: PRINT " 1 Voui rttournti a 

u C*ntrt dt la pi*ct* 
5410 PRINT ■ 2 Uoui p*i*i «oi p 

i»c*i': GOSUB 160 
5420 IF I a 1 THEN 5300 
5430 IF 1 < > 2 THEN 5400 
5450 PRINT : PRINT "Vous mtttti 
uoi *jP0r pi#c*s d'OR sur 

It plattau d* la balanct.' 
5460 PRINT 'Son cadran indiqut 

5465 '-'TAB 12: HTAB 35: NORMAL : 
PRINT ■ -| HTAB 35 

i '/TAB 13: PRINT ■ *: UTAB I 



4: HTAB 35: PRINT ' 

5470 UTA8 13: HTAB 44: PRINT " 

■l VTAB 13: HTAB 42: INVERSE 

! PRINT *g* 
5475 PP - PO » 10: FOR I - TO 

PP STEP 2:B« ■ LEFT* (■ 

',4 - LEN < STR« (!))» * STR* 

(I) 
54B0 UTA8 13: HTAB 37: PRINT 8* 

: NEXT I 
5490 FOR 1 - I TO 2000: NEXT : GOTO 

3300 
5500 HOME I PRINT : PRINT "Uoui 



5510 PRINT : PRINT * 1 Voui rtt 

■ : PRINT * 2 Uous allumti it 
ttlfuntur' : GOSUB I 60 
5520 IF 1 = 1 THEN 5300 
5530 IF I - 2 THEN 5550 
5540 GOTO 3500 
5550 HOME : PRINT : PRINT : PRINT 



5555 GET B»: IF B* ■ 
570 



THEN 5 



5560 GOTO 5355 

5570 PRINT : PRINT : PRINT "Un 

mtltag* ipplrnt lur Pterin 
: ' : SPEED" I 
3580 PRINT : PRINT * LA CLEF 

DE LA REUSSITE SE TR0UUE AU 

SOUS-SOL* i SPEED- 253 
5584 FOR I = I TO 2100: NEXT : GOTO 



53M 



5300 



3400 HOME : PRINT : PRINT *Uout 
tttt dam I* troii>tr>* gr*n 
Hr.'i PRINT *A 1 'ou*it I* t 
rouu* un coHr*.' 

5410 PRINT "A l'»tt, .1 y a unt 
port* autc unt t*rrur* *n 

R." : PRINT 
5620 PRINT * i'iB»<2)! PRINT • 

2*iB*(3>: PRINT * 3";B»<4): GOSUB 

160 
5430 IF I * 1 THEN 3300 
5440 IF I = 3 THEN 3700 
3450 IF I - 2 THEN 3600 
3670 GOTO 3600 
3700 REM 

3710 IF U t ) 1 AND U < ) 2 THEN 
PRINT "Vous n» pouuti rit.n 

lair*.*: FOR I » 1 TO 2300: NEXT 
: GOTO 3600 
3720 IF MU » OR C2 ■ 1 THEN 3 
600 



II 



5730 HOME : PRINT : PRINT 
tttt dtuant t* co*fr* 

t a un cad*nat.' 
5740 PRINT : PRINT * 1 Uou* «ai 
t*t t*ut*r I* cad*nai autc u 

otrt arm** i PRINT * 2 Voui r ' 
ttaurnti tu ctntr* dt la pit 

5750 GOSUB 140: IF I « 2 THEN 3 



» I TO 2400: NEXT iC2 - 1:P 
- PO * 15: GOTO 5400 
5S00 HOME : PRINT : PRINT "Uoui 

■ tit dtuant li port*.*: PRINT 
: PRINT * 1 Vous rttournti a 
u centra dt la pitct* 
SBI0 IF CO = 1 THEN PRlnfT ■ 2 
Uoui ouurti la port* autc uo 
tr* clt-f tn OR.* 
5815 GDSUB 160 
3620 IF I ■ 1 THEN 5600 
5830 IF 1 '. ) 2 THEN 3B00 
5840 IF CO " THEN SBOO 
5B50 HOME : UTAB 6: PRINT 'Li p 
ortt i'ouvr*. Uoui uoyti un* 
tchtl lt tur lt mur •iMrltu 
r *t la d*sc*nd*i." 
5B60 '/TAB 12; HTAB 31 1 NORMAL : 

PRINT "TRIPLE BRAUOS : 

'TAB 15: HTAB 32: PRINT 'Uo 



4001 REM 

4002 REM 



PRESENTATION 



6010 HONE : UTAB 13 

6100 READ D.S.A.C: 1 F D - 99 THEN 

6200 
6110 FOR I - D TO A STEP S 
4120 POKE I - S.140: POKE I ,C 
6130 FOR J - I TO 8;X - PEEK ( 

- 14334) i NEXT 
4140 NEXT 1 
6150 GOTO 6100 
4200 S = - 14334 
4205 FOR I - 1 TO 45: IF » 1 THEN 

D = 0: INVERSE : GOTO 6220 
6210 - 1 t NORMAL 



Suite page 24 



BRIQUE 



EXELVISION-EXL 100 



Retrouvez la joie des jeux de cafe chez vous sans de- 
penser un rond. 



Jean-Paul GRISSON 





-Wri 



EXEL BRIQUES 



IECRIT FAR 

'JEAN -LUC GRISON 

!SUR EXL 100 



TITRE INSTRUCTIONS 



CLS "CBB" 

CALL COLOR! "OYBHLF") 
l LOCATE (8, 3> sPRINT "EEX> 

LOCATE (9,9) sPRINT "EEX> 
i CALL CQLORC-ORB") 

LOCATE < 15,15) sPRINT "voultz-vaut d*s 

tionu C0^N3" 
1 RS=KEYS:IF RSO"0"AN0 RSO"N"THEN 1? 
I IF RS""0"THEN 20 
l IF RS«"N"THEN 42 
< CLS "CBB"sCALL COLOR ( "OGB" ) 

LOCATE (3,5) SPRINT "C* J*u a pour but 



22 PRINT "d* briquet ivie une ba I I * . " 

23 PRINT "C*tt* bal 1* apparait »u milieu da ' 

24 PRINT "I 'ecr*n,vou* d*v*z la r»nvoy*r *v*i 

25 PRINT "la raquett* situ** *n bat du terra 
2E- PRINT "Uous pouvrz deplacar la rfquitt* a< 

27 PRINT "Laa touch** curilur -) <- ou ivic" 

28 PRINT "la iiTittt* d* jeu orange," 

23 PRINT "Lorsqu* vous raita* un bois,(balle 

30 PRINT "I* bord de la r»qu*tt*),un rcbond 

31 PRINT "bi«rr# paut »• produir*." 

32 PRINT "Lara das d*p I ac*B*nts raquetta" 

33 PRINT "!■ ball* ralantlt." 

34 PRINT "Vous dispoacz da cinq ballet." 

35 LOCATE ( 20, 10) sPRINT "A YOUS DE JOUER" 

36 AS-KEY* 



INITIALISATION 

SONS 

CARAC TERES 



! DIM TA<22,33) 

l T1*""007CBBAABAB602FC" 

T2S-"0D7C91B2BAB602FC" 
i CALL CHARd , "FFFFFFFFFFFFFFFFFFFF" > 

CALL CHAR(2,"O07E7E7E7E7E7E7E7E00"> 
' X-9: Y-18;RY-18:BX-X:BY-Y:X1=1 : Y1-1 :BA=5sSC^ 
I ! aanaaaawaaaeaaaaaaMaaeMeaaaaaaaaaa 
I I TERRAIN i BALLE 

CLS "CBB" 
1 GOSUB 53:C0SUB 77s GOSUB £7:G0T0 83 
i FOR 1-1 TO 20 



54 CALL COLORC1CB") 

55 LOCATE <I,6):PRINT CHR*( 1 > 
36 TA(I,7)=2sTA( I,6>-2 

57 LOCATE (I,32):PRINT CHRtiij 

58 TA(I,31)-2:TA(I,32>-2 

59 NEXT I 

60 FOR 1=7 TO 31 

61 CALL COLOR ("1CB") 

62 LOCATE (1,I)iPRINT CHRS<1> 

63 TAC 2 , I >=3:TA( 1 , I >=:j 

64 NEXT I 

65 RETURN 

66 ' 

67 FOR 1-9 TO 30 

68 CALL C0L0R<"1MB"> 
63 LOCATE (8,I>:PRINT CHR* ( 2 ) : TA< 8 , I > =4 

70 CALL C0LORC-1CB") 

71 LOCATE (6,D:PRINT CMR» < 2 > s TA( 6 , I ) -4 

72 CALL COL0R<"1YB"> 

73 LOCATE (4,I)sPRINT CHR»( 2 > s TA( 4 , I ) »4 

74 NEXT I 

75 RETURN 

76 ! 

77 FOR I=- 1 TO 1 
7B CALL COLOR COMB") 
73 LOCATE ( 21 , RY . I ) sPRINT CHR«<G1) 

80 TA(20,RY-1 >=5sTA(20,RY«1 > -3 s TA < 20 ,ftY >■& 

81 NEXT I 

82 RETURN 
B3 TA<2,?)"7sTA(Z,31 >=7 

.84 LOCATE (10,34) tPRINT "BALLES " s LOCATE I11,36):PRIN 
95 faaeaaaaaaaeaeaaaaaaaaaeaaaaaaaaaaaa 

86 I 

87 lM«tt< 
B8 X-XtX' 

89 IF X>21 THEN GOTO 10 

90 IF TA(X,Y)-0 THEN 10 

91 IF TA(X,Y)-2 AND Y1< 

32 IF TA(X,Y)-2 AND YD 

33 IF TA(X,Y)-3 THEN X1 

94 IF TA(X,Y)-4 AND XI >' 

95 IF TA(X,Y)-4 AND XKO THEN X1 - 1 : TA( X , Y ) -0:GOTO 33 
36 IF TA(X,Y)-5 THEN X1 - -2 s Y 1-SGN<S ) sCALL SPEECHC'L , " IT2S I 

97 IF TA(X,Y)-6 THEN X1--1sCALL SPEECH( "L , " 112* > : GOTO 101 

98 IF TACX,Y>-7 THEN X 1 -SCN< BX- X > : Y1 -SGN ( BY - Y ) s CALL SPEECH( "L , " IT2« > s GOTO 101 

99 SC-SC.(24/X)a25sCALL AFC (SC , T 1 * ) i IF 5C-29300 THEN 127 

100 IF SC-7475 OR SC-14950 OR SC-22425 THEN GOSUB 67 : X-9 : Y-18 : PAUSE 5 

101 CALL BAL(X, Y , BX , BY ) : BX-X : BY-Y 

102 CALL KEY1(CC,TT>sIF TT-0 THEN 89 

103 IF CC-129 THEN RY«RY i 1 : S-1 :CALL RA01 ( RY , TA ( , ) > : GOTO 103 

104 IF CC-131 THEN RY-RY- 1 : S- - 1 sCALL RA02 ( RY , TAt , ) > s GOTO 103 
103 P-Pt1iIF P(2 THEN 102 ELSE P-0:GOTO 88 



8A-BA-1sIF BA=.0 THEN 113 
PAUSE 2sX«9sY=INTRND<23)*7 
LOCATE (11,3E):PRINT BAsGOTO I 



CALL COLOR ("ORB") 

LOCATE (10,1G) sPRINT "PERDU" 

GOTO 123 



GAGNE 



CALL COLOR ("ORB") 

LOCATE (10,7):PRINT "VOUS ETES UN SU 

PER CHAMPION" 
I LOCATE (12,7>lPRINT "UOULEZ -UOUS REJ 

OUER,CO/N3" 

REPS-KEYS 
I IF REP»< >"0"AND REPS< >"N"THEN 124 
, IF REP*i"0"THEN 42 
' IF REPS»"N"THEN END 



SOUS PROGRAMMES 



JEU 



SUE 8AL<X,Y,ex,BY> 
! CALL C0L0RC0R8") 
I LOCATE (X,Y) sPRINT CHRSO) 

LOCATE <8X,BY)iPRINT CHR*(0> 
i SUBEND 



I LOCATE C21,RYM) sPRINT CHRS(61) 
i LOCATE <21 ,RY-2> sPRINT CHRSCO) 
TA(20,RY-2)-OiTA(20,RY-1 >=5s TA<20,RY 



THEN Y1-1 :X1-SGN(X1 ) sCALL SPEECH( "L , " IT 1» ) :l 
THEN Y1--1 iX1-SGN(X1 > sCALL SPEECHC "L , " IT1 i ) 
1lCALL SPEECHCL, "ITU) sGOTO 101 
THEN X1--1 :TA(X,Y)-0sGOTO 33 



:COT0 101 



149 



IF RY-30 THEN TA(20,R 
20.RY.1 )-5 

SUBEND 



V\ >-7 ELSE TA( 



145 SUB RAOl'tRYj TA( , > ) 

146 CALL COLOR("OUIB"):IF RY<S THEN RY- 

147 LOCATE ( 21 , RY- 1 ) iPRINT CHRS<61> 

148 LOCATE ( 21 ,RYt 2) :PRINT CHRS(O) 

149 TA(2O,RY.2)*0sTA(20,RY>»6sTA(2O,RY 



ISO 



IF RY-8 THEN TA(20.RY- 

20.RY-1 )"3 

SUBEND 



-7 ELSE TA( 



1H 

107 



UNE 



JTRE BALLE 



: SUB AFC(SC,T1«) 

CALL SPEECH<"L,"tTlS> 

CALL C0LOR("OCB"> 

LOCATE (4,34) sPRINT "SCORE" 

LOCATE (5,34):PRINT INT(SC) 

SUBENO 



COPIES 

DE FICHIERS 

Disquettes phitanthropiques et comblees cherchent 
programme de copie efficace pour satisfaire concoeurs 
en mal d'informations. 

Jacques LAVELOT 

Mode d'emploi ; 

Les indications necessaires sont dans le programme 




ATARI 



&&&* 






,i« 



%'S 



fflr 



IS REH uit.i.miinnu.mmu. 
28 REM t t 

39 KEM * COPIES DES FICHIERS * 

40 REH * t 
58 REn t*t«uuu«ui..t 11 «uui.t 
108 REM Mmiim.i»iiiimi.M.i. 
110 REM LIGNE 900) TAPE? " tt d EN 
L20 REM UIDEO INUtRSEE. POUR P at 
130 REM TAPE2 CTRL AUANT... 

140 REn LIGNE 910: IDEM SAUF POUR 
150 REn CTRLtp QUI N'EXISTE PAS... 

160 REH tlUUtrtil[|lillllitl.tltit 

888 POKE 588, 1 

988 Din CI0*C7)sCI0«-"tl'■ ud ■ 

910 DIM CI02*[7):CI02«-"h" Ud " 

1088 Din ASU ],DRU2«m.Tnp«{20) 

1081 GRAPHICS >8 

1802 POSITION |,4 

1005 ? #6i"C0PIES DE FICHIERS" 

1810 FOR T-l TO 400:NEXT T 

1038 GRAPHICS 0:POKE 752,1 

1835 SETCOLOR 4,0,0:SETCOLOR 2,8,0 

1040 ? "uli U*ez-uo«« 2 dTiu*« CO/M]?"] 

1045 OPEN l>2 t 4,0,-K:":GET M.JsCLOSE «2 : 
■» CHR«CI):IF IOASCC-0") AND K>ASCC"N-J 

THEN 1030 

1046 IF I-ASCC'O") THEN 1070 
1050 DRU2S--N" 

1060 DN1-1 :0N2-1 sGOTO 1100 

1870 DRU2S--0" 

1060 ? "nuaiaro du ORIUE tourc« " ; sINPUT D 

Nl 

1090 IF DNIOl AND DN102 THEN 1070 

1831 IF DNl=l THEN GOTO 1833 

1B92 DN2-1 :ON1-2:GOTO 1894 

1093 DN2-2 

1894 ? :? 

1895 GOTO 22880 



1188 POSITION 2,10 

1101 ? "INSERE2 LA DISOUETTE SOURCE ET T 
APE2" ' 

1102 POSITION 15,12:? 'STAR T" 

1103 IF PEEKC53279)<>6 THEN 1103 

1118 TRAP 21800:Tnp»-"D :«. «" :TnPSC2,2J- 
STR»CDN1]:0PEN «l,6,0,Tnp» 

1120 Din NAn£S»[2B*ll),L0CK»C2BJ,STRTC2B 
l,LENGC28J,LINEiC38J,FILE4t 15J,USED(28) 

1121 BUFLEN-58«INT[CFRE(8J-256)-'5e):Din 
BUF4CBUFLENJ 

1122 BUF«t n = '' "sBUFSCBUFLENJ- 1 ' " JBUFSC2 
)=BUF» 

1128 ? CHRSU25) sPOSITION 2,0 

1129 ? "TAPE2 POUR DUPLIOUER LE FICHIE 

R s' 

1130 PRIN! 

1131 FILES-0 
1140 TRAP 1201 
1150 INPUT dl, LINES 
1155 ? LINES; 

1160 IF LINES! 18, 161--SECT0RS 1 THEN 1205 

1170 ? " dupKQ/N)? '•; 

1175 OPEN a-2,4,0, 'Ks =GET »2,IsCL0SE a?s 

f CHRSCIJilF lOASCfO-J- THEN 1150 

1179 FILES-FILES'! 

II 68 NAnESSCFILEStll-l0,FILESIin-LINE*C 

3, J3) 

I1B5 L0CKSCFILES1-LINESC1, 1) 

1198 GOTO 1158 

1201 FILES-FILES- 1 

1285 REn «ii»iii«».i.i.i.iiiiiiim 

1206 REM * LECTURE INDEX TERHINEE « 

1207 REn t*tt***»»**ttt«**tJ*t«*** 

1209 CLOSE •! STRAP 40000:^ 

1210 FOR 1-1 TO FILES:S1RT(I)»0IUSEDCIJ- 
8: NEXT I 

1215 PRINT 



1220 INFILEaJ :0UTFILE=1 

1230 APPND-0 

1300 REH 

1303 FOR T-l 10 100:NEXT T 

1305 PRINT CHRs(1251;-> "LECTURE :":? 

1310 INDEX-1 

1400 IF INFILE>FILES THEN 2000 :R£H PLUS 

DE FICHIERS 

1405 IF STRT(INFILE1>0 THEN 1412 

1410 GOSUB 20800 

1411 USEDtFILENOl-INFILE 

1412 FILES=NAnESS[FIL£NOSll-[0,FIL£NO»ll 
) 

1415 ? FILESf.1,8) ;" -;FIL£s(9, II), 

1420 GOSUB 10000 

1425 FILESC2,2)=STRSC0N! 1 

1430 OPEN 11,4,2, FILE* 

1448 IF STRTCINFILE3O0 THEN POINT 11 1 , IN 

A.INBsAPPNO-l sOUTFILE-OUTFILE-1 

1450 STRTCINFILE 1 -INDEX slENGCINFILE 1-0 

1500 REn TRANSFERT FICHIER'ttEnoiRE 

1505 RETRY-8 

1510 GOSUB 11008 

1520 IF ISTAT*]36 THEN 1600 

1538 IF INDEX>BUFLENti THEN? "ERREUR D« 

NS LA LECTURE. . .":END 

1540 IF ISTAT<-1 THEN 1700 

1550 IF R£TRY<5 THEN RETRY-RETRYtl :? " 

ERREUR - "jISTAT sGOTO 1510 
1568 ? "ERREUR COPIE IttPOSSIBLE" =END 
1600 REn FIN DE FICHIER 
1685 ? LENG(INFILE) 
1620 CLOSE 01 
1638 INFILE=INFILE*J 

1640 IF BUFL£N»l-IND£X)=125 THEN 1100 
1658 GOTO 1728 
1700 REM nenoiRE PLtlNE 
1705 ? LENG(INFILE) !"*" 



1710 NOTE »! , INA.INB 

1720 CLOSE 01 

2000 REH COPIE SUR DESTINATION 

2005 OUTIND-1 

2018 IF INOEX-l THEN 3000sR£n nEnOIRE ul 

DE 

2028 IF DRU2S--0" THEN 2025 

2821 ? :? - INSERE2 LE DISK DESTINATIC 

N" 

2022 ? " PUIS TAPE2 START' 1 

2823 IF PEEKC53279J06 THEN 2023 

2024 FOR T*l TO 50SNEXT I 

2025 ? CHRSU25):? "ECRITURE >" 

2026 ? 

2030 TRAP 22100SFOR I-l TO FILESJlF USED 
(I)=OUTFILE THEN FILENO-I 

2031 NEXT IsREn TROUUE LE FICHIER DANS L 
1 LISTE 

2032 FIIES=NAMESS(FILENOS11-I0.FILENO*11 

2835 ? FILESCI.8);- " JFILESO, 1 1 J 

2848 GOSUB 18000 

2841 FILESC2,2)-SIRS(DN2J 

2050 IF APPNDO0 THEN 2108 

2053 REn *t****sxxx*****s***t* 

2068 RE" * OUUERTURE FICHIER * 

206] REM t****tt***i*ix**tXk*t 

2870 OPEN 42, 8,0, FILES 

2080 GOTO 2200 

2100 REn 

2118 IF DRU2S<>"0" THEN OPEN #2, 9,0, FILE 

SsRE" COPIE AUEC 1 DRIUE 

2200 REN COPIES FICHIERS 

2210 BPPND-0 

2220 GOSUB 12000 

2230 REn *****X*t*t**t*t****lS**ttft* 

2231 REH FERNE SI FICHIER TERniNE, 

Suite page 25 



C'est nouveau, pa vient de sortir 



BIDOUILLE GRENOUILLE 



Special Jack My Love 

Eh oui, Jack va tous les boufler 
Nous bouffer. en fait. Ouand i! 
decidera de sattaquer a I ali- 
mentation, aux distractions, aux 
voitures, ca fera ma' A propos. 
une petite bidouille utile si vous 
possedez la C5 de Sinclair : 
vous decoupez le lond du carton 
dans lequel etait emballe voire 
Speclrum et vous obtenez un 
superbe garage. Genial, non ? 
Restons concrets En attendant 
ce fabuleux Atari, malgre les tre- 
pignements dimpalience qui 
nous rongent le bout des 
ongles, penchons-nous un ins- 
tant sur le cas d'Arsene Lapin 
Le tres celebre et tameux gang 
des "trouveurs*de-la-facon-d'en- 
trer-dans-la-maison'' mecrit pour 
me donner la facon d entrer 
dans la maison Ces cinq petits 
jeunes, Molinatti. Alzieu el les 
Clad's brothers ont meme trouve 
la liste du vocabulaire que. pas 
chien. je vous redonne aussi 
sec. Auparavant. voici la se- 
quence destructions pour en- 
trer ; 

Grimper arbre 

Corde 

Sauter jardm 

Sauter piscine 

Tuer crocodile 

Couteau 

Fouiller piscine 

Prendre huftre 

Tuer chien 

Gaz 

Huitre 

Sortir piscine 

Aller statue 

Examiner statue 

Tourner bouton 

Prendre passe-partout 

Aller niche 

After soupirail 

Detruire soupirail 

Lime (bande de petits salopiaux) 

Entrer cave 

Eclairer cave 

Lampe 

Baisser manette 

A (la, je ne sais pas ce que pa 

veut dire, mais ca marche) 

Sortir cave 

Aller porte 

Ouvrir porte 

Passe 

Entrer maison 

Et hop. rien de plus simple. 
n'est-ce pas ? Moi qui suis tou- 
jours entre dans des maisons 
d'abord en sonnant. puis en 
poussant la porte. je suis (out 
surpris. Comme c'est mon |our 
de bonte (je suis amoureux de 
Jack, ca me rend guilleret) je 
vous donne un petit peu de la 
suite : 

Entrer cuisine (attention, le frigo 

est ptege) 

Sortir cuisine 

Entrer bibliolheque 

Fouiller bureau 

Sauter marche (parce que c'est 

un piege aussi) 

Monter escalier 

Entrer salon 

Ouvrir malle 

Prendre senngue (Ms sont lous. 

ou quoi ?) 

Sortir salon 

Entrer chambre 

Lire lettre 

Sortir chambre (dommage ') 

Ouvrir armoire 

Examiner linge 



Prendre billet (un peu que je le 
prends. le billet ') 

Et puis jarrete la. Passons aux 
mots, subtilemenl divises en 
deux categories : les verbes et 
les noms. Lets go for the 
verbes. que gentiment je vous ai 
classe par ordre alphabetique : 




Chitfon 

Choucroute (je reve ') 

Clef 

Coeur d or (on parle de moi ?) 

CoHre 

Collier 

Container 

Copie (au voleur. un pirate ') 

Corde 

Couteau 

Crocodile 

Cuisine 

DM (Jack est plus fort que 

Schneider) 

Diamant 

Disque 

Echelle 

Emeraude 

Escalier 

Evier 

Exteneur 

Filet a papillons 

Four 

Fetiche 

Garage 

Grande 

Grille 

Hamburger 

Huitre 

Jardin 



Iniecter (pardon ?) 

Lire 

Manger 

Mettre 

Monter 

Ouvrir 

Poser 

Prendre 

Sauter 

Sortir 

Tourner 

Et attention pour les noms. y en 
a un paquel. Ordre alphabeti- 
que. toujours. 

51 (pas de pub) 

Aiguille 

Allumettes 

Arbre 

Armoire 

Arsene 

Assiette 

Azteque 

Sarreau 

Bibliolheque 

Billet (un seul ?) 

Boite de conserve 

Bote 

Bouclier 

Bouton 

Buftel 

Bureau 

Benitier 

Cadran solaire (mauvel 

Canape 

Camgou (alto 7 ) 

Carotte 

Carte 

Casse-noix 

Cave 

Chaine 

Chambre 

Chaussures 

Chien 



Lampe 

Lettre 

Liasse de billets (ah ben voila.) 

Lime 

Linge 

Lit 

Livre 

Maison 

Malle 

Manette 

Manuscrit 

Marche 

Marteau 

Masque 

Mateias 

Meche 

Niche 

Ordinateur 

Ouvre boTte 

Palourde 

Panneau 

Passe partout 

Pastis (gloup !) 

Pelle 

Perle 

Petite 

Pied de biche(a ne pas confon- 

dre avec tete de veau !) 

Pile 

Piscme 

Piece d or 

Placard 

Plan (bon ?) 

Plaques 

Plat en argen! 

Pompe 

Porte 

Poterie 

Poulet. 

Rideau 

Riz 

Robine! 

Roci mosta (alors la, ie vois 

pas) 

Rubis 



Refngerateur 

Reveil 

Salon 

Senngue 

Serum 

Soupirail 

Statue 

Tableau 

Tiroir 

Trappe 

Trophee 

Tresor 

Telecommande 

Vaisselle 

Vetement 

Verre 

Vison 

Vitamines 

Voiture 

Yen (mais non. Jack est plus 

fort que le Msx AUSSI I) 

Y a pas de bidet ? 

Si avec ga vous narrivez pas a 
la fin en dix minutes, laissez 
tomber les jeux d'aventure. c est 
pas pour vous Je suis sur que 
Jack naurait meme pas besom 
de la liste du vocabulaire. 
Pendant que je vous tiens. quel- 
ques requetes dont j'ai a vous 
(aire part : |e voudrais les solu- 
tions de Jewels of Babylon pour 
Amstrad, Zimsalabim pour 
Commodore 64, le Crime du 
parking pour Apple et Sorcery 
pour Amstrad Ca vous fera du 
travail, pas toujours les memes 
qui bossent. 

Ceux qui n'ont pas d'Oric n'ont 
pas de chance cette semaine. 
car c'est sur cette machine que 
je continue En fait, je suis pro- 
fondement certain que Jack a 
un petit pincement au coeur 
quand il pense a I'Atmos. 
Pour avoir un nombre infini de 
vies sur Super-Jeep, il suffit de 
faire CTRL-C lorsqu'on explose 
pour arreler le programme (pa 
marche) puis de modifier la ligne 
545 

Pour Doggy, si vous etes mal 
barre et que vnu<t snnhaitiis? re- 
prendre la partie a zero, faites 
reset, LIST. 5555 puis LIST en- 
core une fois II vous suffit de 
faire CALL # 43D0 pour rejouer 
a partir du debut. 
Et tinalement. pour ralentir quel- 
que peu Acheron's rage, faites 
reset. DOKE # 306. # 950 et 
CALL # 900 pour continuer a 
jouer. A noter que ce true mar- 
che sur de nombreux jeux, 
Mais si vous n'avez pas d'Oric. 
vous avez surement un Minitel 
(a propos. Jack se balade sur 
les messageries sous le nom 
"Killer"). Voici quelques codes 
que vous pouvez obtenir par le 
613 91 55 

161 001 873 ou 161 004 873 
vous donne acces a MG2 tele* 
matique qui propose une mes- 
sagene. Protitez-en. c'est une 
des rares a ce tacit 
192 060 451 est un serveur 
IBM. 

144 000 71401 esl le rectorat de 
Nantes Le bac approche, depe- 
chezvous 

175 000 924 necessite un mot 
de passe essayez EFFAI 
Un petit VAX "> Pas de pro- 
bleme : 175 020 79999 
Et un dernier numero mais cette 
lois par le 614 91 66 : ' SSA 
Premier mot de passe 99963 
Deuxieme , COBYV9 
Je rappelle a Jack qu'd pent me 
laisser des messages sur n im- 
porte quelle messagene. j'y suis. 



TIENS, VOILA 

Les editions Soracom viennenl 
de sortir un hvre sur Alice. II 
est ecrit par Alain Bonneaud 
C'est dommage qu ii ne sap- 
pelle pas Jean, cela mauran 
permis de faire un excellent 
jeu de mots : mauvais point 
La couverture nest pas de 
Moebius bon point. II vaut 
151 francs Ires mauvais 
point II est remarquablemenl 
documente exphque, detaiile. 
commente. conlienl les adres- 
ses d entrees- sorties de la 
Rom. une description techni- 
que du format des donnees en 
transmission reception tres 
bon point. C'est le seul bou- 
quin interessant sur I Alice 
neutre (un bon point pour le 
seul , un mauvais pour Alice ) 


UNE IMAGE 

En bret. I'un dans I autre, il se 
i/aut 



AIGLE D'OR,AIGLE DE PLOMB, 
SI JE MENS... 



Le petn nouveau de chez Lon- 
ciels nest autre quun pelil an- 
cien de chez Loncieis : lAigle 
d or Quelques differences sub- 
liles le distinguenl de sa prece- 
denle version le graphisme 
des pieces dans lesquelles se 
balade le personnage est plus 
soigne plus touille. le bon- 
homme peut courir et esl bien 
pus eslhelique quand il saute 
en longueur (histoire d eviler 
les trappes) El puis, il est pour 
TO7-70 et M05 Arriver a Ob- 
tenir la meme rapidite sur 
Thomson que sur One relevail 
de la gageure pari tenu 



loncibu 

L AIGLE DOk 



L'OISEAU DE FEU 
N'YAVU QUE DU FEU 



Le printemps approche, les 
bourgeons apparaissent et Fi- 
rebird sort deux nouveaux 
litres pour Commodore. Ams- 
trad et Amstrad 




plus simple a vous presenter: 
tire de l attaque finale de 
I'Etoile Noire par Luke Skywai- 
ker (pour ceux qui ne connais- 
sent pas, il s'agit de la tin du 
premier film de la guerre des 
etoiles), vous etes le heros et 
devez ratiboiser cette fichue 
planete entierement construite 
de la main de Ihomme. Mais 
quel homme: I'Empereur. per- 
sonnage aussi noir que ses 
pensees et tout juste bon a 
vous tendre les pieges les plus 
models pour sauvegarder son 
chef-d'oeuvre et son fief. Mal- 
gre les apparences, il ne s'agit 
en fait que dune nouvelle ver- 
sion de Space Invaders, en 
trois dimensions avec des gra- 
phemes extras et un son a 
passer sur une chaine hifi et 
ce qui ne gate rien. c'est plus 
que rapide: ca speede ' 



Demons Of Topaz ne ressem- 
ble pas a un jeu d'aventure, ni 
a un jeu d'arcade, ni a un jeu 
de role, ni a rien. Curieuse- 
ment, nous pourrions meme 
pretendre qu'il est original ! in - 
descriptible est le meilleur qua- 
lificatif que j'aie pu trouver 
dans le dictionnaire pour de- 
crire ce jeu. Y'a des couleurs 
partout, des sons bizarres 
dans tous les sens et vous re- 
cherchez, je me demande en- 
core quoi. Mais le pire. c'est 
qu'il est marrant ce jeu. Des 
que j'aurai compris quelque 
chose, j en reparlerai. 
Buggy Blast sera nettement 




LES DISKS JOCKEYS 
AU CHOMEDU... 



La nouvelle radio parisienne 
HIT FM a commence a emet- 
tre debut fevrier. L operation a 
ele montee par le celebre Jac- 
ques Seguela qui ne rale pas 
une occasion de se faire remar- 
quer. ce en quoi il a parlaile- 
ment raison Bonjour Jacques 
Resolument futuriste, HIT FM 
n utilise ni animateurs ni |our- 
nalistes. En effet. tous les de- 
ques sont programmes par or- 



dinateur. Je conseille done 
vivement a tous les robots de 
se brancher sur 100 6 MZH 




AUX Ckon) amis 

LES MAINS PLEINES 



Peu a peu. les logiciels pour 
MSX sortent de leur carton. 
Konami offre actuellement une 
brochette de vinqt quatre litres, 
tous sur cartouches. Aux clas- 
siques tels que Time Pilot ou 
Tennis ou encore Antarctic 
.Adventure succedent une 
nouvelle generation de pro- 
duits plus ou moms artrayants 
King's Valley vous enlraine 
dans les protondeurs d'une py- 
ramide egyptienne ou vous de- 
vrez (dans un style Lode Run- 
nerien) acquerir un maximum 
de tresors sans vous faire tirer 
I oreiile par les gardiens du 
lieu. 

Sky Jaguar ne vaul guere 
plus que son nom : attaque de 
la base ennemie. panpan 
boumboum 



gne de graphismes pas vrai- 
ment palpitants proches de 
ceux d'AntarctiC Adventure, en 
moms bien. 
Hyper Raflye est byper nul 





Golf superbe en irois dimen- 
sions avec sur le cbte vue en 

plan, une adaplation excep- 
tionnelle dun jeu plulol en- 
nuyeux habituellement. 
Yie Ar Kung-Fu ou comment 
vous prendre pour Bruce Lee 
el en mettre plem la lete a eel 
ignoble Chaohangs. accompa- 



Billiards pour jn D.ilard amer.- 
cam y a laisse des bouies 
Sans mterei 

Magical Tree et Athletic Land 
vous mcitent a remuer le |oys- 
tick touiours plus vite. mais 
touiours en cadence : lassant. 
Dans le domame des sports, 
quatre litres concurrencent 
maintenant les Hyper Olympic 
1 et 2 ; Hyper Sports 1 pro- 
pose plongeon. saut a la per- 
che. trampoline et barre fixe. 
Hyper Sports 2 offre ball trap, 
lir a Tare et lancer de poids 
Track and Field 1 . c'est pour 
le 100 rnetres. le saut en lon- 
gueur, le marteau et le 400 
metres Entm Track and 
Fields 2 pour 1 10 metres haie. 
javeiot. saut en hauteur et 
1500 melres 

Comme a I habitude. I ensem- 
ble de ces litres osctllera 
entre 250 et 300 francs des 
leur arrivee en France (tres 
prochaine) 



C'est nouveau, pa went de sortir 



LES PIRATES DU PINCEAU 



Les savants onl besom de pre- 
textes pour travailler. 

- Tiens, si on inventait une 
sonde laser pour reconnaitfe 
les vrais tableaux des faux f 

- Oh non, t'es con. toul le 
monde sen tout. 




■ Mais si. Jte dis que ca va 
etre genial. El puis ca nous as- 
sure du boulot... 
Aussitot du. aussitot lait. Les 
chercheurs du laboratoire de 
spectrochimie du CNRS de 
Thiais onl mis au point une mi- 
crosonde laser : MfCRODIL 
Cetle inieressanle bidouille 
melange loptique. lelectroni- 
que et linformatique. Avec un 
prelevemenl de quelques mi- 
crons seulement on peut ana- 
lyser les pigments utilises par 
le peintfe et par consequent 
separer les belles toiles des 
croutes de faussaires. Un petit 
pas pour I'Humanite. Un grand 
pas pour le CNRS de Thiais. 



BONJOUR DOCTEUR 



Votre future derniere specia- 
lity : fabricant de monstres, 
votre devise : "Just call me 
Docteur Frankenstein", Et cela 
grace ou a cause de PSS. Une 
de leurs dernieres creations. 
Frank'n stein, se resume a un 
croisement rate entre un levrier 
afqhan e! une musaraiqne 




Rien de bien rejouissanl dans 
ce jeu ou vous devez {au 
cours des tableaux de numero 
impair) reconstituer voire 
monstre puis (durant les ni- 
veaux pairs) le detruire pour 
mieux pouvoir recommencer. 
L'action se deroule dans un 
decor de Donkey Kong rococo 
ou la strategie se resume a 
prendre son mal en patience 
en attendant le bon vouloir des 
monstres. Si vous avez quel- 
ques heures a perdre. tout en 
gardant votre sang-froid, vous 
atteindrez sans aucun pro- 
bieme le niveau vingt ou 
trente. mais le |eu n'en vaut 
pas la chandelle ; c'est tou- 
lours pareil ! En un mot : une 
horreur que votre Spectrum en 
rougirait de honte si vous lui 
infligiez des octets parens dans 
sa memoirs. 

A eviter absolument. si vous 
n'etes pas masochiste 



ORIC 
SUITE ET PAS FIN!... 



L'affaire Oric nest toujours pas 
terminee, Vous vous souvenez 
probablemenl qu'Oric Angle- 
terre a depose son bilan et 
que quelques acheteurs, tous 
francais, etaient [res interesses 
par fe rachat d'Oric. Denis 
Taieb. ancien directeur d'ASN 
qui diffusalt I'Oric 1 et I'Almos 
etait sur le coup ainsi que la 
Societe Eureka, grand importa- 
leur parallele devant leternel. 
Thomson avail egalemenl fait 
une proposition et ASM. I'im- 
poriateur officiel d'Oric en 
France, n'en avail rien a (aire. 
Aujourd'hui, Thomson nie avoir 
fait le moindre debut de 
commencement de proposition 
alors que les espions que nous 
avons dans la place arftrment 
le contraire. ASN n'en a tou- 
jours rien a cirer et prend un 
MSX en distribution. Denis 
Taieb est tou|ours officielle- 
ment dans la course mais 
semble beaucoup moins bien 
parti qu'Eureka qui a la cote 
d'amour aupres des anglais. 



Eureka dispose toujours dun 
des deux seuls prototypes 
d'Oric Stratos el espere avoir 
une reponse definitive dans les 
jours qui suivent. 
Attendons done. Ca va, vous 
etes tenu en haleine bien 
comme il faul ? 




TAKALAVOIR LE KATALAVOX 



La vedette micro-informatique 
de I'annee est sans doute Mar- 
tine Kempf. Cette Alsacienne 
qui a oublie d'etre bete a in- 
vents le Katalavox. On en a 
deja parle. mais lidee a fail du 
chemin depuis. Deja cole busi- 
ness, ca marche pas mal pour 
les Kempf : 4 succursales en 
Europe... Strasbourg. Paris. 

Bruxelles el Bonn. Ensuite 
cole application, le Katalavox 
semble partaitemen! au point : 
oe micro-ordinateur de 
commandes vocales possede 
15 relais programmables Un 
vocabulaire de 19 mots maxi- 
mum lui suffit a Irouver sa 
place dans une voiture pour ef- 
fectuer loutes les fonctions se- 
condaires : ouvrir ou fermer les 
portes, le pare-soleil. le leve- 
vitres. les clignotants. 

etc...Evidemment. ce serait en- 
core mieux si on pouvail dire 
"27 rue Schpountz" et que la 
voiture nous y emmene sans 
toucher a rien. 



Le Katalavox est acluellement 
utilise avec des lauteuils rou- 
lants. des commandes d'envi- 
ronnement, le telephone (n ou- 
blie pas d'appeler Suzette pour 
les crepes) el la voiture. Un 
permis de conduire special 
(categone F) est meme delivre 
depuis 1984 avec la mention 
'commandes vocales pour les 
fonctions electnques". Ca rouie 
pour Miss Kempf. La classe 
quoa. merde. 




▲ Miss Kempt 



COMPLETEMENT GAGA 



Le Minitel mene a tout, meme 
au pire. Deux jeunes et sym- 
pathiques vosgiens ont fait 
connaissance par Minitel inter- 
pose et viennent de se maner. 
Ainsi POLLUX et SCHNAPS 
(vachemenl romantique 

comme pseudos) ont-ils trouve 
la voie de lamour par le biais 
de lexpression telematique 
Elle est fonctionnaire des 
impots. il est instituteur et lout 
le monde sen tamponne sur- 
tout moi. Je me demande 
pourquoi j'ecris ce papier Ah 
si. je sais, J'ai vu la tronche 



des tourtereaux dans le Pan- 
sien Libere. et je voulais pre- 
vent tous les utilisaleurs de 
Minitel les gars, faul pas fan-, 
tasmer sur le physique de la 
personne que vous avez en 
ligne. Generalernent, quand 
vous la verrez. plus dure sera 
la chute 




INCROYABLE ! 

LE MINISTRE FRANCAIS DE 

L'EDUCATION NATIONALS 

ETAIT UN ANGLAIS 



Sinclair part a I'assaut des 
ecoliers francais et lance 140 
logiciels educatifs pour ZX 81 
et Spectrum. Les programmes 
en question comprennent evi- 
demmenl des cours de revi- 
sion et de perfectionnement de 
la langue angtaise mais egale- 
menl des programmes francais 
bien de chez nous couvrant 
['ensemble des classes, de la 
maternelle a la terminale. 
Si vous eles simple pelerin qui 
achetez vos logiciels dans une 
boutique normalement consti- 



tute, vous payerez ces softs 
65 francs. Si vous etes une 
ecoie. vous aurez droit a des 
prix pas possibles, a condition 
toutefois d'etre entierement e- 
quipee de micros Sinclair ! 




TUDIEU LA BELLE PHOTO ! 



Nous vous avions touche un 
mot du HB-75B. le MSX "Hit- 
Bit" de Sony. Regardez 
comme il est beau. Vous ima- 
ginez que ce nest pas autre 
chose qu'un MSX. et pour ce 
genre de micro vous n'avez 
que la carosserie a choisir. vu 
que le moteur est partout pa- 
reil Eh bien tout faux ! 




Le Hit-Bit possede 16 I 
Ram video, 32 Ko de Rom 
Basic, 64 KodeRam utilisateur 
ET 16 Ko deRom avec TROIS 
programmes integres. Les Irois 
logiciels en question sont un 



courses la page de presenta 
tion propre aux MSX disparai 
au profit d'un menu Sony of 
frant le choix entre les softs in 
tegres et le basic. Autre crea- 
tion Sony : un bouton de Re: 
arrive sur le clavier, evitant les 
manipulations repetees sur Tin- 
ier rupteur de mise en marche 
et Ires utile pout le plratage 
des logiciels. 

Pour le reste les peripheriques 
sont disponibles (lecteur de 
cassettes ou de dlsquetles. im- 
primante a stylos, joysticks), 
contralrement a tous les autres 
(abricants qui les promettent 
pour incessamenl sous peu 
dans pas longtemps. Enfin le 
prix : a peine trots mille 
francs. . . Mefiez-vous quand 
meme. ces prix ne sont vala- 
bles qu' 



MAX DE BLE 



Savez-vous. petits canaillous 
(x ?) de branches micros, que 
vous avez depense 2127 mil- 
lions de francs en 1983 pour 
acheter des micros zordina- 
leurs ? Et qu'il s'agit de francs 
lourds, sonnants et trebu- 
chants ? Savez-vous que dans 
le meme temps, les entrepnses 
se sont lendues de 18471 mil- 
lions de francs pour acheter 
des micros, des minis el des 



grands systemes 7 Savez-vous 
qu'en France, il s'est vendu en 
83 pour 7653 millions de 
francs de logiciels et 4474 mil- 
lions de progiciels ? eh bien 
OUI !! Maintenant vous le 
savez. 



DANS UN FAUTEUIL 



Quand j'eiais gamin, a lepo- 
que des plumes Sergent Major 
et des tabhers gns. je lisais 
deja de la Science-Fiction. Les 
auteurs de lepoque nous mon- 
traient les annees 80 comme 
une epoque ou Ion pourratt 
(aire ses courses dans un fau- 
leuil. grace a un ordinateur 
Nous y voila : la societe Cadt- 
lel propose (a parlir du mois 
de mai) de (aire son marche 
par Minitel Plus de 1500 pro- 
duits sont au catalogue a des 
tarifs supermarche. La livraison 
s'effectue 24 heures apres la 
commande Pour profiler de ce 
service, il vous en coutera 700 
francs par an.Et pour quelques 
dollars de plus, vous beneficie- 
rez dune messagerie, de la re- 
servation de places de theatre 
ou de spectacles, etc.. -Pour 
demarrer ses activites. Caditel 
ne couvrira que Paris et quel- 
ques communes avoisinantes. 



Le service devrait s elendre ra- 
pidement a toute la region pa- 
risienne Que les ramollos du 
jaret ne comptent pas sur nous 
pour leur commumquer le nu- 
mero de telephone : on nous 
accuserait de publicite ! Et puis 




un peu d exercice n'a jamais 
fait de mal a personne. Si ca 
continue, les gens ne sortiront 
plus du tout de chez eux et on 
aura 50 millions de paranos 
aux yeux rouges sur les bras. 



LE DERNIER... POUR LA ROUTE! 



Encore une fois, c est Bally 
Midway qui lance un produil 
drole et original sur le marche 
Tapper est le surnom dun bis- 
trolier bien connu de la redac- 
tion de I'HHHebdo. Seul. tace 
a une clientele en delire. il se 
voit oblige de servir des p'tits 




coups a un rylhme defiant 
('imagination : ses clients ne 
sont pas assoiffes. ils sont des 
hydrates, desseches. raccor- 
nis... Une animation sympalhi- 
que vous entraine dans le defi 
de satis'aire tous ces poivrots 
sans qu'aucun ne soil lese de 
son verre. Lorsque tout le 
monde dans le bar est satis- 
fail. vous aurez a vous occu- 
Der des clients de la terrasse. 
qui ne sont pas en meilleur 
etat que ceux de la salle. Vous 
vous depensez tenement dans 
ce jeu que vous ne pensez 
qu'a une chose avant de 
commencer une autre partie : 
mais ou est done ma bouteille 
personnels ? Bref le logiciel 
est bon. bien realise, sans pre- 
tention mais drole. un soft a 
posseder imperativement fa 
condition de remplir le frigo de 
boissons diverses avant de de- 
buter) si vous bidouillez sur 
Commodore 64 ou Apple. 



LA C5 EST BAPTISEE 



Ca y est, mon vieux pote (on a 
ele a lecole ensemble) Sir 
Clive peut s'enorgueillir de 
lentree de son automobile 
dans le rang des voitures nor- 
males : la premiere contraven- 
tion pour etat d ivresse au vo- 
lant de ce vehicule a ete 
dressee ce mois-ci a Londres. 
Bienvenue au club. 




ETENDEZ-MOI MES FRERES 



Le monde des MSX devien- 
drait-il competitif ? Les exten- 
sions commencent a Jranchir 
les douanes (fort strides) japo- 
naises. 

Apres Sony.Speclravideo com- 
mercialise son lecteur de dis- 
quettes. Le SV S1-707 fonc- 
tlonne sur des floppies 5 
pouces 1/4 el travaille sur les 
deux faces en double densite. 
Resultat des courses : 500 Ko 
de donnees sur une disquette 
non formatee el 320 Ko apres 
formatage sur 40 pistes avec 
un temps d'acces moyen d'un 
dixieme de seconde. Le pro- 
bleme majeur de ce drive (con- 
necte sur un port cartouche) ; il 
coutera environ 3800 francs. 
Autre nouveaute en prove- 
nance des laboratoires de 
Spectravtdeo. la cane 80 co- 
lonnes qui vous (era depenser 
1250 francs et bouchera en- 
core un port cartouche 




A cartouche 80 colonnes 



Du cole de Toshiba , on peut 
souligner ("apparition de I'imprl- 
mante "plotter" HX-P570 qui 
travaille soil en feuille a feuiile 
(format A4 maximum) soil avec 
des rouleaux de papier plus 
classtaues. La ou elle est ires 
baleze, c'est pour la Vitesse 
(105 caracteres a la seconde) 
el pour le prix (molns de 3000 
francs). 

Sanyo pour sa part propose un 
crayon optique offrant des figu- 
res preprogram mees (cercle. 
carre. ligne.. 1 .), I'effacement 
partiel ou total de la figure, la 
copie sur imprimanle... Le tout 
pour la modique somme de 
1000 francs. Bien entendu. un 
port cartouche sera monopo- 
lise par ce crayon. 

Quand meme. on se demande 
comment connecter toutes ces 
extensions simullanemenl sur 
son MSX, surtout qu'un seul 
port est obligatoire pour repon- 
dre aux normes de ce stan- 
dard. Attendons Tarrivee du 
dedoubleur de ports cartouche 
annonce par Casio au Japon. 
Vous voyez un peu I'usine a 
gaz. une fois branches 80 co- 
lonnes. stylo optique, drive de 
mini-disquettes ou de 5 pouces 
1 ''4, jeux. moniteur assem- 
bler... 



L' APPLE FUIT THESEE 



Sprites, tout comme Loriciels 
recemmenl. vienl de sortir son 
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Comme d habilude cest un ieu 
d'aventure. et comme d'habi- 
tude le ieu ne vaul pas plus 
qu'une boite de pale de singe 
(plus digeste en cas de fa- 
mine). L'analyse syntaxique 



inexistante se corse de subtili- 
tes de langage inattendues : 
pour quitter une maison (par 
exemple) vous devez eenre va 
dehors car il ne comprend rien 
d'autre (direction geographi- 
que. sors... n'existenl pas en 
interieur). Les objels se trou- 
vent sans probleme. les mons- 
tres se jeltenl sur vos armes. 
le fil de I'enigme Iconlraire- 
menl a celui d'Ariane) est 
transparent. 

Un seul point est a souligner 
dans cette sous-production : le 
logiciel nest absolument pas 
protege. Lors du chargement 
du DOS, si vous tapez CTRL 
C. le programme vous rend la 
main et vous laisse un acces 
libre au catalogue Lexpe- 
hence est suffisamment nou- 
velle et interessante pour etre 
soulignee. Voila qui est fait. 
Esperons que le prochain soft 
de Sprites ne soil pas plus 
protege mais bien meilleur. 



HIPPO 
JOYST 

Cast tou jours japonais, cost 
toujour* coataud, mals, on 
plus, ca a un mutoffro. Coot a 
dire quo, at vous iaissez un do 
voa doigts appuyi our un dot 
boutons, h ttr sera a repo'ti- 
tlon, c'est pas boau go ? Pour 
h reste rien do change : trots 
boutons do Or, uno bonne 
prise on main ot quatro van- 
touaos pour to colter dtfinltl- 
vement aur la table do la aallo 
a manger (super-pratique pour 
ha rapes!) Priao standard 
pour Amstrad, Atari, Commo- 
dore 64, USX, Vic 20. Compa- 
tible avoc ha interlaces Orlc 



nouveau, 

' tir automatique 

at Spectrum. Pour Apple, 

Thomson, Texas, Uachbrb et 
Trucmuche, Tlntin : ca no 
marche paa ou alora II faudra 
bldoullhr. 

Ah, au fait, c'aat plus cher 
que I'ancien. 120 hatha I Do 
toute f aeons, do I'ancien II n'y 
en a plus, alora. 
Coat bon, c'oat paa trop 
char ? Envoyez voa sous 
apres avoir rempfl h bon do 
commando cl-jolnt. Lo minis- 
try du commerce extiirieur du 
Japon vous remercie blen 
baa. 




Bon de commande a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 

Norn 

Prdnom 

DATE : PU=120F ... x... - .... F 

frais d'envoi = +15F 

cheque joint ; TOTAL - ™ F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable ; des 
produits signes SHIFT EDITIONS ! 

g Un jeu d'aventure : ca va.Six jeux d'aventure, bonjour les nuits blanches ! Voosal- 

' lezdevenirtoura tour explorateur.espion.egyptologue.cosmonaute. superhe- 
ros etviclimeducGiebredocIeurParanaud, Sivousamvezaubouldecessixcas- 
se-tete sans problemes de sante et sans troubles mentaux. vous deviendrez 
sans conteste un des grands maitres mondiaux du jeu d'aveniure ! Une cassette 
pleine a craquer pour 120 trancs. 

Votre One utilise le langage machine pour ret lechir et vous n'avez malheu reuse- 
ment que votre cerveau humain pour le Dattre au Morpion '. Le "Laby 5" qui suit 
n'est pas plus tacile: cinq stages, des trappespartoutetsesascenseurs pas tres 
liables! Dans "Oil leak", vous devez reparer une voitureau beau milieu degran- 
desftaquesd'huile. Les gouffres, les ravins et les precipices de~Pont-levis"vont 
vous rendre (ou ! Le "Parsec" (once a toute vitesse et la "Guerre nucleaire" est i 
tout simplement le premier grand Wargame pour Oric. 120 francs la cassette. | 




"Dork crystal" est sans nul doute un 
des plus beaux et rapides jeux 
ecrits pour Tl 99 : votre heros doit re- 
cuperer des fragments de cristal dans 
le labyrinthe qui est le lieu a la mode 
pour tous les monstres branches de la 
galaxie ! Les autres jeux son! tout aus- 
si efficaces : unsuperbesauteursursa 
pyramids, un duel pour deux joueurs 
en armure, un casino avec 3 jeux de 
cartes, une cenlralenucleaice el "Mis- 
sion perilleuse" qui vous transportera 
dans une jungle hostile en deux somp- 
tueux tableaux 120 francs les 6 jeux 
en basic etendu 



7 . ,,.,;; , 


**0§§£ 


BASIC ETENDU 


as- K=— 


1>99*A N'4 



SPECTRUM N-1 




sgfg§ffl§ 



ORIC W5 



Desjeuxd'arcadeagogo changezie 
cours del'histoirea Peart Harbour, gui- 
dez Al'bert et Kong dans ieur pyramide 
favorite, jouez a un jeu de balie en- 
tierement nouveau. construisez 
d'enormes murs avec votre grue de 
chantieret regal ez-vousavecde la te- 
quila : plus vous en buvez, plus vous 
desamorcez facilement les bombes 
de "Caramba"! Six super-program- 
mes pour 1 20 francs. 

Deux jeux d arcade ou vous sere; 
un courageux pompier, ou pilote 
d'une moto de course f onctionnant au 
langage machine. Viennent ensuite la 
reflexion avec "Puzzle" et la stategie 
avec "Mineur" oil vouspourrez organi- 
ser des competitions jusqu'a 5 
joueurs. L'aventure enfin avec "L'inca 
d'or", un fabuleux jeu graphique en 3 
dimensions. 6 super-programmes 
pour 120 francs. 



Des jeux. de I'eleclricite et du plaisir. 
voile dequoi fairefretiller les electrons 
dans votre M05 et quand en plus ces 
jeuxsontmulliplesetdouzevousenvi- 
sagerez quelques nuits blanches 
d'Othello, de Poker, de Memo 7.. Des 
que I'immobilite vous paraitra insup- 
portable, partez pour I'espace pro- 
fond (Worp) ou retrouvez vos amis (fi- 
chler d'adresse). Vous verrez. vous 
n'encroirez pas plus vos yeux que vo- 
ire M05 n'en croira ses jeux ! 

^ BON DE COMMANDE A REN- 
^ VOYER A SHIFT EDITIONS, 27 
* rue du Gal Foy 75008 PARIS. 
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DATE : 
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DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rlen de blen original dans 
cette formule. pourtant nous 
essayons de falre quelque 
chose de different: nous orga- 
nlsons un concours perma- 
nent tous les mois et tous les 
trimestres! Et avec des prix 
dignes des programmes que 
vous allez nous envoyer! 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuelle. 

Pas de Jury, pas de decision 
arbitrage, HEBDOGICIEL n'in- 
tervenant que dans le choix 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. Si votre programme 
nest pas tout a fait au point, 
un de nos specialistes vous 
dlra comment I'ameliorer pour 
pouvoir nous le proposer a 
nouveau. 

Pour partlclper, II vous sufflt 
de nous envoyer vos pro- 
grammes accompEgnes du 
bon de participation ainsi que 
toutes les explications neces- 



saires a 1'utllisation de ce pro- 
gramme. 

Bonne chance! 

Reglement: 

ART.1: HEBDOGICIEL organise 
de fagon mensuelle et trimes- 
trielle un concours dot6 de prix 
recompensan! le meilleur logiciel 
du mois et du trimestre. 
ART.2: Ce concours est ouvert 
a tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realist. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL 
constitue I'acte de candidature. 
ART.3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'onginalite les logi- 
ciels qui sont publies dans le 
journal. 

ART.4: Ce sont les lecteurs qui, 
par ieur vote, determinent les 
meilleurs logiciels mensuels et 
trimestriels. 

ART.5: Le prix alloue' pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 



BON DE PARTICIPATION 



ART.6: Le prix aMou6 pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel. 
ART.7: Le present reglement a 
6te depose chez Maitre Jauna- 
tre 1 rue des Halles 75001 

ART.8: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avtsant les lecteurs 
un mois avant. 

ART.9: La participation au 
concours entraine ('acceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus tort pourcentage de vote 
par -rapport a la totality des 
programmes recus pour un 
meme ordinateur. 
Ainsi, pas de favoritisme pour 
les ordlnateurs plus puissants 
ou tres diffuses. 



Nom 

Prenom 

Age Profession 

Adresse 

N' telephone 

Nom du programme 

Nom du materiel utilise 

declare etre lauteur de ce programme qui n est m une imitation ni une 
copie dun programme existant Ce piogramme reste ma propriete et 
j'autortse HEBDOGICIEL a le pubher La remuneration pour les pages 
publiees serade 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee} 

Signature obligatoire 

(signature des parents pour les mmeurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descnptif detailie du materiel utilise, 
d'une notice d'utihsation du programme Le^ supports des program* 




DEUX FOIS UNE LIGNE ECALE ? 



Rien de plus precieux que ces nouvelles realisations des 

lecteurs en folie : vous battez a plate couture tous les 

deulignes ame'ricains ! Continuez dans cette lignee et 

vous remporterez la palme annuelle des flemmards ge- 

niaux... 

Et en avant la zizique et les flonflons pour les accessits. 

Bernard GELDH0F s'envoie un auto-satisfecit par 
HHHebdo interpose. Bien joue" ! 
\ Listing COMMODORE 64 
10 PP.INT"BERNHRD"; F0RI-53296T036293 ' 
P0KEI.14,NEXTrF0RI-55616T056295-P0KEI.2 
20 NEXTI 'F0RI"55976T036295-P0KEI,2'NEXTI : 
FORI-1024TO2923 POKEI-2 NEXTi:QOTO10 

Laurent LICOUR vous invite aux commandes dune ma- 

nette de jeu. A vous d'en tirer parti en couleur et haute 

resolution. 
\ Listing THOMSON n" 1 

10 lFC=0THENL0CfiTE0,e,e:CLS:SCREEN7,8, i: 
X=168!Y=100:C=i:£LSEQ=STICKa>:X=X+CX>efi 
NC(Q = 80R0=7ORQ=Si:'-lX<319flMD<0 = EORO=30RQ 
•=4)):Y=Y-KY>eflNDCQ=80RQ=10RQ=2)>-<Y<I99fl 
ND<O=4OR8=5ORO=6>):PSET(X,Y),C:IFSTRIC<0 
>7HENC=C*i:iFC=8THEt*C=l 

20 SCREEN,, C:Z=STICK<0>r.X*X+<X>8AND<Z=8O 
R2=70RZ=6 ) ) -<X< 3 I9fiND<Z=20RZ«30RZ=4 ) ) i Y- 
Y+(Y>0ftHD(Z=8ORZ=lORZ=2))-(Y-<199flND(Z=4O 
RZ=50RZ=6))!PSET<X,Y),-IJlFSTRIC<nTHEMR 
UNiELSEie 

ft** 

Pierre ADAM est tres a la mode. Le squash le branche. 

au stylo optique : la raquette va toujours a gauche Pour 

la d6placer, appuyez de votre doigt de fee sur le contac- 

teur du crayon optique. 



Jl Listing THOMSON n° 2 



1 CLS:LOCATEe.0,e:SCREEN4,e,0:BOX<135,50 
.'-(184, 100), 3: LINECI36, 108 )-< 183,108),-! 
:X=i: V=i:M=150:N=60:fl=160:FOR8=0TO15STEP 
0:LINE(fl, 180>-<A+4, 10fl),4!PSET<M, N),5J Al 

=AiMlsM!Nl=N: IFPOINTCM+X,NX>-lTHEt<X=-X: 
PLftyLlD0"ELSEIFP0INT<.M,H+YK>-lTHENY«-Y 
:PLrtY"SI" 

2 fl-fl-2«<PTRIG=-lftNOfl<177^t2»(PTRIG»0flKO 
rt>136>:n»M*X!N-N+Y:LIXEiAl, 100)-<Al+4, 10 
',-i:PSET(HI,Nl),-i:IFN>I10THENLOCflTE8, 
0: C0L0R6: LINE* A, 100>-<A+4, 100)1 PSET CM, N) 

: PRINT-SCORE: -;SC:PL«Y"L50O2SOSOREHISO-: 
H*= INPUT* (1)1 RUNELSESC*SC+ 1 : NEXT 



Pour rejouer . appuyer sur une toucne 
ft* ft 

Ahmed B0UYERDENE vous recommande de brancher et 
d'allumer votre impnmante avant de faire RUN. Ne I'ou- 
bliez pas ou le programme se met en vacances. 
% Listing CANON X07 

t CLS:fl«-iNKET»:R-INSTR["1234567S30-'-DUE 
RTYUIOPa[ftSDFGHJKL;:32XCUBNn,./7",fl*3 
2 LPRINT ft*;:G0TOl 



Jean-Christophe ALAIME garde un excellent souvenir de 
la grande periode baba. A vous d'en protiter 

^ Listing ORIC 
10 INPUTG'FORT"2T064' H I ftES ^0511626 ^NEXTT : 
GOTO10 

26 FuRIo4096eTu48939S TEPG F0Rh=17T023^ 1= 
I+T ' POXEI , ft i NEXT* , I i RE TURN 
ftft ft 

Le double est pour Apple cette semaine, apres Thom- 
son. Allons-y. roulez jeunesse ! 
Jean-Claude DEVAL devient I'abonne numero 1 du po- 
dium avec une nouvelle exceiiente production. Vous allez 
pouvoir utiliser des REM qui. lors du listing sur ecran. 
ne laisseront apparaitre que le texte inclus dedans. Pour 
memoire lancez le programme, puis remplissez les 
lignes de REM sur les points (et sur eux seuiement). 
^ Listing APPLE n° 1 

10000 FOR I - 1 TO ?il» - m * 
"H*l NEXT lHl» ■= H»:H2* »= H« 

» •HH , .i FOR 1 - 1 TO 33iL« » 
L« ♦ CHM (46): NEXT : TEXT 
! HOME I UTAB 12: HTAB 12: INVERSE 
: PRINT 'REM CACHEES* : GET A*: HOME 
: NORMAL : INPUT 'NOM 0U PRO 
GRAMME i ■ J F I LE« 

10001 FOR L - 10 TO 40 STEP 10: 
PRINT : PRINT ' - iLj' REM ■ 

J i INYERSE : PRINT Hlt[: NORMAL 
: PRINT L*|i INVERSE : PRINT 
H2*i! NORMAL i PRINT L*| : INVERSE 
: PRINT H2«|i NORMAL : PRINT 
L*|t INYEftSE t PRINT -J-|i NORMAL 
: PRINT : NEXT Li UTAB 2i PRINT 
CHR* (4)i'L0AD'FlLE« 
ftft ft 

Et e'est Pierre PILAT0 qui gagne le premier prix d'hu- 
mour pour son obsession gremlino-hebdogicielienne. 
^ Listing APPLE n° 2 

5 S - 21: DIM C*(S):K« « CHR» < 

93): FOR A » 1 TO S: READ C« 
(A): NEXT : SPEEC= 235; HTAB 
31 1 VTAB 3: FOR A - I TO ?: PRINT 
K*;: NEXT : HTAB 30: UTAB i: 

PRINT "/•: FDR A ■ 1 TO S: FOR 
H - 38 TO 30 - A STEP - 1 : KTAB 
H: VTAB 5i PRINT C*<A)Kt; : NEXT 
i HTAB 30 - A: PRINT ■ ": HTAB 
2? - A: VTAB 6: PRINT CUM' 

/•: FOR X - 7 TO 22: HTAB 2 
9 - Aj VTAB X 

6 PRINT C«(A)[:U = 15200: VTAB 

X - Il PRINT CHR* (B>- •: NEXT 

i PRINT CHR* <7>: NEXT : DATA 

M,A,I,M, ,M,A,I,M, ,L,E,I,C, 

I,G,0,D,B,E,H: FOR T ■ 1 TO 

3: PRINT CHR* (13): SPEED" 

40 i NEXT : SPEED" 130: FOR I 

= I TO 27: HTAB I: VTAB 13: 

PRINT ■ ( • j: FOR Z ■ I TO 
10: POKE U, PEEK (U): NEXT : 

NEXT ! HTAB 28: VTAB 13: PRINT 



it 

Salut et sihiouleteure 




NDLNC: Eh les mecs vous etes 
pas sympa. y a 2 semaines, je 
vous al demande de me trouver 
un nouveau nom et on peut pas 
dire que vous vous soyez 
foule , tous ceux qui men ont 
propose un , c'etait du 
genre la claviste sensuelle. la 
clavlste tolte 'et autres alors a 
vos plumes ou je vais vous lake 
la fete et je mettrai plus de 
NDLNC, ailez soyez gentils et 
faites un effort surtout qu'it y en 
a pas mat d'entre vous qui sont 
en vacances cette semaine, 
tchao et a la semaine pro- 
chaine, si vous m'avez trouv& 
un nom bien sOr I 

AMSTRAD 

CHERCHE possesseur d'AMS- 
TRAD CPC 464 pour echange 
de programme jeux. utilitaires, 
pedagogiques, de bidouille gre- 
nouille. Jean Marc LACROIX. 37 
rue de Launay 28000 CHAR- 
TRES. 

CLUB INFORMATIQUE VENDS 
pour AMSTRAD programme de 
qualite "Horloge": lecture de 
I'heure, Addition de durees avec 
simulation graphique etc.: 60 F. 
la K7 avec mode d'emploi. Club 
d'lnformatique. Ecole Publique 
St Arnoult 41800 MONTOIRE. 
Tel: (54) 85 28 67 le soir. 

Echange logiciel Easi-Amscalc 
contre 2 autres logiciels : Pendu 
+ le geographe par exemple. 
Tel: (38) 85 62 10. 



ECHANGE "Fred I'Electricien" 
contre un autre jeu pour AMS- 
TRAD. Frederic DALSACE. 23 
rue Fernant Lechanteur 50230 
AGON. Tel: (33) 47 04 36 



APPLE 

VENDS APPLE lie 128 K + 
couleur + 80 col + 2 drives + 
moniteur APPLE + souris 
APPLE -t- joysticks + disquettes 
+ programmes + livres ; 14000 
F. Tel : 875 55 88 entre 19et 21 
h 

VENDS souris pour APPLE 
lie : 500 F. RECHERCHE 
Conan pas cher. Tel : 266 28 30 
poste 32 51 ou 436 91 21 apres 
20 H. 

VENDS imprimante SCRIBE 
pour APPLE He ou lie : 2850 F. 
Tel: 589 78 19. De 8h45 a 18h. 

CHERCHE souris pas trop 
chere pour Bidouille. Francis 
MOUTHAUD. 13 rue des Hor- 
tensias 87100 LIMOGES. Tel: 
(55) 37 78 73. 

VENDS APPLE II + 2 drives et 
moniteur Prix interressant (e'est 

du beige!!!). Tel: 080 570212 
BELGIQUE. 



ATARI 

Recherche solution pour jeu 
cassette ATARI "Raiders of the 
lost ark". Que (aire apres la salle 
des cartes ? Comment ? Merci 
d'avance. MAQUET E 36. ave- 
nue Pierre et Marie CURIE 
80400 EPPEVILLE HAM. 

VENDS ATARI 2600 moins dun 
an + 4 modules (Donkey kong, 
le retour du jedi,..) : 1900F. Tel : 
(70) 32 45 04. 

ATARIEN cherche autre atarien 
pour echange divers. Si vous 
avez Wing War ou Estern Front 
1941 Ecrivez moi. COMTE A 9. 
rue St Just 12000 RODEZ. 



MOB 

CHERCHE contacts pour 
echange:. divers. Herve POU- 
LAIN. La Houaye Dinoze 88000 
EPINAL 

CHERCHE magneto K7 pour 
M05: 300 F. maximum. Fran- 
cois Xavier DANIEL. 3 impasse 
du bout de la ville 76240 BEL- 
BEUF. Tel: (35) 80 11 42. 

VENDS pour M05 1 cartouche 
AIBUS + 1 K7 + K7 Cubomagic 
+ 1 surprise: 400 F. ou 
ECHANGE contre cartouche 
Scriptor. Multifichier, Melodia ou 
autre CHERCHE egalement 
contact pour echanger idees. 
Tel: 16(94)62 30 58. 

VENDS M05 + magneto: 2800 
F. + K7 jeux. Patrick PETIT. 
122 Route de Monlcenis 71200 
LE CREUSOT, Tel: 16 (85) 56 
31 80. 

VENDS M05 + magneto + K7 
de jeux + 2 livres o: initiation + 
25 programmes: 2900 F. Tel: 
233 1 1 32 demander Thierry. 



Debutant en electronique RE- 
CHERCHE possesseur TRS 
plus experiments ayant cree une 
carte permettant le contr6le de 
moteurs pas a pas en vue du pi- 
lotage d'un telescope a I'aide 
d'un TRS modele III. Emmanuel 
WILLEFERT. 42 rue du Capi- 
taine Jasmin 59133 PHALEM- 
PIN. Tel: 16 (20) 90 65 36. 

VENDS TRS 80 16 KO video 
vert noir + son + jeux + K7 as- 
sembler + 4 livres: 2500 F. ou 
3000 F. avec imprimante. Ge- 
rard CORDES. 32 rue George 
Sand 85000 LA ROCHE SUR 
YON. Tel: 16(51)36 18 86. 

VENDS TRS 80 model 3 32 KO 
+ magneto K7 + cordon + 100 

jeux sur K7 + livres: 6500 



ZX81 

VENDS ZX 81 : 300 F. +- 16 
KO : 250 F. + 64 KO : 650 F. + 
interface 16 couleurs : 300 F, ou 
le tout 1500 F. + K7 gratuites. 
Francis COUSSEAU. 17 rue 
Jean Jaures 94800 VILLEJUIF. 
Tel: 726 92 21. 

VENDS ZX 81 + 16 KO + cla- 
vier ABS ¥ inverse video + ma- 
nuel + 1 livre 80 programmes + 
1 livre "creer et animer ses jeux 
video" + nombreux programmes 
pour ZX sur K7 : 800 F. Ste- 
phane BARDOU. 93 rue des 
Eglantiers 77176 SAVIGNY LE 
TEMPLE. Tel : 063 15 41 apres 
18H. 

VENDS ZX 81 : 580 F. + livre 
d'initiation : 140 F, + clavier me- 
canique : 60 F. + 2 K7 d'ori- 
gine : 110 F. + 2 K7 neuves : 
220 F. + raccord magneto : 20 
F. + memoire 16 K bytes : 300 F 
F : ou le lout pour 1000 F. Se- 
bastien GENARD. 6 avenue Vic- 
tor Thiebaut 77177 BROU SUR 
CHANTEREINE. 

VENDS ZX 81 + 16 K + clavier 
ABS + revues + 500 program- 
mes :600 F. Te,: 798 86 39. 

VENDS ZX 81 + 16 K clavier 
ABS + 1 manette + program- 
mes sur K7 + livres + cables 
et alimentation : 900 F. Tel : (90) 
89 37 96 apres 18H. 



CASIO 

VENDS CASIO PB 700 12/83 
avec manual + housse : 1000F. 
J.P CARRON Tel : 250 96 29- 

VENDS CASIO FX-702P + In- 
terlace K7 FA-2 + imprimante 
FP-10 + "la decouverte du FX- 
702P" + "la conduite du FX- 
702P" + 1 K7 DDI + 7 K7 lo- 
gi'stick + 7 cassettes de pro- 
grammes tapes. Valeur 2600F 
vendu 2200F. Paul JOLIVET. 
Tel : 921 84 04 apres 20h. 



VENDS cause double emploi 
CASIO FX 702P + interface K7 
+ 2 livres PSI + 30 program- 
mes sur K7 : le tout 900F. Sl- 
MEONIDIS, 11 bis place du ge- 
neral Amette 75015 PARIS. 

VENDS printer CASIO FP-10 + 
RLX : 400F avec emballage. Se 
branche sur FX-502P-602P- 
702P. Philippe. Tel : 376 47 84. 

VENDS CANON FX 702P + 
Manuel + livre de programmes 
+ piles 900F. Sous garantie 
Laurent ABRASSAT. 24. avenue 
Audra 92700 COLOMBES. Tel : 
784 42 26. 

SPECTRUM 

CHERCHE genereux donateur 
de micro (spectrum de prefe- 
rence) pour club d'initiation. Ste- 
phane COUSIN 503 quai aux 
fleurs 59240 DUNKERQUE.Tel : 
63 75 00. 

VENDS SPECTRUM 48K + 

UHF NB. + peritel + cordon + 
synthese vocale + 30 jeux + 
livres : 2000F. Olivier PERRI- 
CHON. 3 villa de la Paix 92130 
ISSY. Tel : 642 70 57. 

VENDS ZX SPECTRUM 48K + 
6 jeux + haut parleur + alimen- 
tation + magnetophone + 6 
livres : 2000F. Tel : 28 68 18. 

VENDS SPECTRUM 48K peritel 
avec 60 programmes : 1800F. 
COLLINS G. 76 de la pompe 
75116 PARIS. Tel : 774 86 28. 

VENDS SPECTRUM 48KO + 
interface Peritel + Alimentation 
+ 30 logiciels dont Atic Atac, 
Lords of Midnight. Sabre Wulf. 
Pheenix etc.Le tout pour 
2000F. JOSE (62) 28 22 83. 

VENDS SPECTRUM 48 KO Pal 
Peritel + 70 programmes + in- 
terface ZX1 + 1 microdrive + 6 
micro disquettes + imprimante 
GP 50S : 4OO0F.Tel : Mr 
GOMES Jose apres i9h au 020 
43 80. 



VENDS SPECTRUM 48 KO 
avec Peritel. Magneto. 7 K7 (in- 
tercepteur COBALT, ALCHE- 
MIST..), 1 K7 de 40 listings et 
livres de programmation : 2700F 
(a debattre). FARMACHIDI J.P 
20, rue de la plaine 75020 
PARIS. Tel : 373 00 34. 

Chomeur pere de famille cher- 
che sympathique donnateur 
d'ordinateur SPECTRUM ou 
autre, afin de s'initier et d'inte- 
resser ses enfants a la mlcro-ln- 
formatique. VAQUE J.P BP 76 
59330 HAUTMONT. Tel : (27) 
66 12 17 apres 12h. 

SPECTRUM echange + de 40 
jeux : Boulder dash, Franck, 
TLL. KUNG FU. Les Flics. Moo- 
nelert, Manic Miner, 

Alien... Achete et vends egale- 
ment. Ecrlre ou telephoner le 
vendredi soir ou le week end. 
Reponse assuree. LARCHER 
Herve 13, rue Bellevue 57134 
DISTROFF Tel : (8) 256 83 20. 

VENDS ZX SPECTRUM 48 KO 
Peritel/ N/B + Micro drive + in- 
terface ZX 1 + synthetiseur 
vocal + carte 8 entrees/sorties 
+ 2 livres Basic + 3 livres as- 
sembler + 1 livre Pascal + 
nombreux logiciels dont ZX as- 
sembler, Pascal HP4T. Vox. 
3D Mover, Eureka. Compilateur 
+ nombreuses revues, informa- 
tiques. et en prime un abonne- 
ment a ORDI 5 pour 1 an le 
lout : 5000F. Tel : (42) 26 71 84. 

Achete ou echange (contre 
trash man. xavior). Logiciel de 
jeux d'arcades rapides. L 
COSTE. 2 rue C.NODIER 25000 
BESANSON (vend egalement 
prise peritel spectrum). Tel : di- 
manche (84) 40 22 07. 

VENDS SPECTRUM 48 K peri- 
tel + magneto BRANDT M 219 
+ livres + 16 K7 : 2000 F. Tel: 
(16 06)402 26 02. 

VENDS pour SPECTRUM 
Dallas : 70 F. port compris. Tel ; 
070 13 85. 



C est I histoire dun mec qui avail plein de logiciels en stock, meme qu'il arrivait pas a les vendre tous. Les essayeurs fous d'Hebdogiciel les avaient testes, avaient 
selectionne les bons, les marrants avec des jolies jaquettes et des modes d'emploi en francais. Et comme le mec ii voulait sen debarasser. Hebdogiciel a rachete tes 
meilleurs pour une bouch^e de pain brioche. Hebdogiciel. il les a malntenant dans son stock a lui et il les vend a un prix meme les anglais en ont jamais vu comme ga ! 
Comme d'habitude, vous envoyez vos sous au General Foy et vous criez le plus tort possible: "Merci. I'HHHebdo" •". 
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SPECTRUM 

BLADE ALLEY 

Secteur mal fame attend liberateur au grand 

coeur. Ne pas oublier son laser lourd. 

CENTI-BUG 

Centi = centi. bug = pede ! 

PEDRO 

Toi grand jardinier. moi petite fourmi. Moi 

manger fleurs a toi. loi defendre planlations ? 

ZOOM 

Beau, ires beau. Dur, ires dur. Genial et pas- 

sionnant, un vrai jeu de cafe. 

STONKERS 

La guerre a deux, e'est quand meme plus 

drole que tout seul. 

ALCHEMIST 

A la poursuite de la pierre philosophale. vous 

perdrez plus dune fois la vie. mais pas la 

passion. 

BEAR BOVVER 

A la poursuile de la pile perdue pour voire 

camion electnque. (aussi sur Commodore) 

JAWZ 

Comme lout bon requin qui se respecte. la 

faim vous fail sortir du bois. Plein de pois- 

sons dans le viseur vous remonterons le 

moral. 

LES FLICS 

Un diamant comme la panthere rose, ga vaut 

bien quelques meurtres non ? 

APPLE JAM 

La bouhmie vous guette, mais le sauna vous 

attend. Ouf ! 



STARBLITZ 

Vite et bien a lassaut des galaxies ennemies. 



ZX81 



DALLAS 

Coulez les Ewmg grace a vos puils de pe- 

trole. 

CORN CROPPER 

Le mais e'est du ble en puissance. A vous la 
fortune ! 
GALAXIANS 

Piou piou ! Ca vaut nimporte quel Space In- 
vaders et ca marche sur ZX ! (aussi sur 
Spectrum) 
3D GRAND PRIX 
Pole position pour ZX. ca extste. La preuve ! 

COMMODORE 



KRISTAL OF ZONG 

De laventure. des epees. des monstres, des 

tresors et tout au joystick. Un must absolu. 

OEFENDER 64 

Mieux qu'au cafe, sans effort. Ihumanite a 

sauver, Une paille a trouver dans une tonne 

d'aiguilles. 

ORIC 



LIGHT CYCLE 

Des motos et des hommes dans un univers 
electromagnetique. Des vibrations angoissan- 
les assurees. 



LES SUPER-METEORES 

Voire vaisseau dispose de quoi faire sauter la 
moitie de la galaxie, mais vous devez d'abord 
traverser ces putains de champs d'asteroi- 
des. Dur, tres dur ! 
ARENA 3000 

Vous etes presque aussi baleze que Super- 
man et Goldorak reunis mais tous. absolu- 
ment tous les occupants de cette arene vous 
en veulent a mort. 
SCUBA DIVE 

Les huitres e'est bonpourJ^jial«wfltTa1sTes 
perles cesi-fta— iw mJ-ilUu nnnr le porte- 

CEffTIPEDE 

Grand cfassique. Innenarable ! (aussi sur 
Commodore) 
THE ULTRA 

Malheureusement, il ne sait compter les ta- 
bleaux que jusqu'a cent ! 
ELEKTRO STORM 

Grace a Dieu, vous disposez encore de quel- 
ques teles nucleases pour proteger votre 
"Home sweet home'. Une chance, non ? 
LA REVANCHE DE DRACULA 
Que vous luiez les In up- i-pinn 1 niiii|ini i 
ou les goules. lo m °.' T lfi ■-"-— ^"^ ■»"»«». 
■"""' iiiiliui Ii |i iiiIiiiii prochame ; 

rtllUUUuUUUUU ! Epuise! 
LE GEANT DE GLACE _ 

'U'U'ii'Hn ■ frrnrTT^TI 1 I mi - \\ rnlhih rpiihril 

M.A.R.C. 

MARC pour "Maman les Aliens Recommen- 

cent leurs Conneries". Infernal et genial 
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VENDS SPECTRUM + 48 K + 
peritel + interface Manette AGB 
+ joystick (Quick Shot II) + 
livres + Light Pen + 8 K7 de 
jeux : 2800 F- Tel : 906 83 32. 

VENDS SPECTRUM 48 K peri- 
tel + micro drive + livres + pro- 
grammes : 3400 F. Tel : (43) 93 
78 91. 

VENDS SPECTRUM 48 K peri- 
tel + UHF NB. + 2 manettes + 
interface + 6 K7 + prog perso 
+ TV. NB. : 3500 F. + fv. cou- 
leur SECAM peritel : 2200 F. 
possibility de vente groupee ou 
separee. Tel : (61)01 90 14. 

POSSESSEUR SPECTRUM 48 
K RECHERCHE correspondent 

?our echange de programmes, 
el : (56) 48 54 33. 

VENDS SPECTRUM PLUS + 
imprimante + adaptateur peritel 
+ 1 5 K7 de jeux + 2 livres : 
3500 F. Stephane KRAUSZ. 
Tel : 588 41 97. 

CHERCHE correspondent pos- 
sedant un SPECTRUM 48 K 
pour echanger programmes et 
trues. M. GERARD. 1 rue de la 
Croix 1050 BRUXELLES BELGI- 
QUE. 

VENDS SPECTRUM 48 K + 
peritel + mod. NB. + TV. NB. + 
int. centronic + int. Kempston et 
AGB + manettes + magneto + 
30 programmes dopt inedits + 
50 listings + livres + revues : 
3500 F. Tel : 252 76 26. 

VENDS SPECTRUM 48 K + 
manettes de jeu + peritel + 2 
tivres de programmation + 5 lo- 
giciels : 2800 F. ou 3000 F. 
avec magneto. M. CAMBOUR- 
nac. 59 avenue Beau sej our 
77340 PONTAULT COMBAULT. 
Tel : 028 58 74. 



VENDS Tl 99/4A Console: 800 
F. + modules Tl Extended: 550 
F. + Minimem: 550 F. + Echec: 
500 F. + Multiplication: 100 F. 
+ Super Demon attack; 250 F. 
+ Alpiner: 150 F. + Wumpus: 
150 F. + Parsec: 200 F. + En- 
vahisseurs: 150 F. + Munch 
Man: 500 F. + Music Maker: 
150 F. + Black jack poker: 200 
F. + Burger time: 200 F. + joys- 
tick: 150 F. + Interface pour Pe- 
ritel sup: 400 F. + Collection 
revues Tl 99 francais: 200 F, + 
30 cassettes avec nombreux 
jeux; 30 F. piece + nombreux 
livres et documentations. Chris- 
tian BADAROUX tel: 585 16 52 
(le soir de 20 H a 21 H). 



VENDS modules de jeu pour 
TI99/4A: Parsec. munchman, 
carwars. ambulance, amazing, 
echecs. the attack, chrisholm 
trail, invaders et des K7: Solar 
system. Lunar jumper. Sun 

games. Basic par soi-meme. 
asic etendu par soi-meme. Prix 
a debattre. JF GUITARD. 12 rue 
des vases 31000 TOU- 
LOUSE.Reponse assuree. 



VENDS Tl 99 avec manettes : 
1000 F. + BE. + livres + K7 + 
99 magazines : 800 F. 
+ Echecs et Othello : 400 F. + 
mini memoire avec livres as- 
sembleur + K7 diverses : 800 F. 
+ Ti cale et Gestion familiale : 
500 F. ou le tout avec jeux sur 
K7 ; 3500 F. Albert BELOU. 23 
bis rue Bauben 31000 TOU- 
LOUSE. Tel: 16 1 63 78 63. 



VENDS Tl 99 console + peritel 
+ magneto + manettes de jeu 

+ BE + mini memory + ma- 
nuals + 21 modules dont Pole 
Position, Parsec, Munchmann, 
Startrek, Othello, Gestion de Fi- 
chiers + module Pirates Adven- 
ture + divers jeux infogrammes 
et softi + 50 logiciels sur K7 + 
livres jeux et programmes tomes 
1. 2. 3. : 6000 F. Possibilite de 
vente separee. Tel : 770 18 65. 
Apres 20H. 

VENDS Tl 99 + peritel + BE + 
mini memory + manettes de 
jeux + cable K7 + module o- 
thello + programmes + livres : 
2400 F. Tel : (98) 44 96 29. 



VENDS Tl 99 + cables + ali- 
mentation + ext basic + 2 ma- 
nettes de jeux + cordon magne- 
tophone + modules de jeux + 3 
K7 jeux + 1 K7 jeux d'aventure 
+ K7 6 programmes + revues 
99 magazine + documentation : 
2700 F. Pierre GRAND. Cite des 
Jacobins 32100 CONDOM. Tel : 
16 62 28 22 81. 

VENDS Tl 99 + 10 modules + 
joysticks + 8 livres + manuel 
BE + pratique du Tl 99 N° 1 et 
2 + 50 programmes pour Tl 99 
+ jeux et programmes TOME I 
II III - Hebdogiciel software N° 
2 et 3 + techniques de pro- 
grammes de jeux N" 1 et 2 + 99 
magazine + K7 de programmes 
+ magneto + adaptateur + 
double cable de liaison magneto 
+ nombreux programmes ( lis- 
tings) : 3600 F. a debattre. Fre- 
deric GAUDFRIN. 56 rue Lucien 
Sampaix 94460 VALENTON. 
Tel : 389 09 87. Apres 17H. 

VENDS Tl 99 + peritel + adap- 
tateur + cordon K7 + magneto 
K7 + module de jeu + manette 
de jeu + 19 jeux K7 + 10 Heb- 
dogiciel + 10 jeu sur papier : 
3000 F. Johann LOCATELLI. 19 
allee des Mitailleres 38240 
MEYLAN. 

VENDS Tl 99 + interface peritel 
+ manettes de jeux + cordon 
magnetophone + modules BE 
d'origine Parsec + K7 et livres : 
2000 F. Yves GLET. 21 rue de 
Penthievre 78310 MAUREPAS. 
Te : 062 92 70. 

VENDS Tl 99 + BE + mini me- 
mory + livre + 6 modules de 
jeux + cordon magneto + jeux 
sur K7 : 3300 F. a debattre. Tel : 
(42) 22 33 25. 

VENDS Tl 99 + peritel + 
Secam + bofte extension + ma- 
nette de jeu + magneto + cor- 
don + module + jeu video 2 + 
mini memory + programme de 
jeu 1 et 2 + 2 livres : 3400 F. 
Xavier BLANQUEFORT. 60 
Avenue de Wagram 7501 7 
PARIS. Tel : 227 62 89. 

VENDS Tl 99 + joysticks + ma- 
gneto + cables magneto + 2 K7 
+ 2 livres: 1580 F. TbI : (88)38 
58 56. Demander Eric. 

CHERCHE module Husttle pour 
Tl 99 ou ECHANGE contre mo- 
dule Microsurgeon. Tel : (90) 75 
24 44. 



VENDS Tl 99 + magneto + ma- 
nettes + 7 modules + livres : 
1800 F. Tel : 379 24 74. 

VENDS Tl 99 + cordon ma- 
gneto + manettes de jeux + po- 
grammes 1500 F. a debattre 
Jer6me DONZELOT. Buffard 
25440 QUINGEY. Tel : 16 81 86 
45 56. 

VENDS boitier peripherique Tl 
99 equipe carte et module me- 
moire 32 K + lecteur de disque 
avec son contrbleur : 4500 F. 
Tel : 471 27 41. 

VENDS Tl 99 + interface peritel 
+ manuels + cable magneto + 
manettes de jeu : 1600 F. + 
module BE + module gestion de 
fichiers + manuel + 14 livres de 
programmes + 8 K7 contenant 
70 programmes : 1600 F. ou le 
tout : 3000 F. Michel RECE- 
VEUR. 34 D rue Jules Grosjean. 
25200 MONTBELLIARD. Tel : 
(81) 91 85 79. 

VESNDS Tl 99 + magneto + 
cordon + manettes + livres : 
1000 F.Tel: (74) 70 43 73 

CHERCHE contacts avec Tl 99 
+ mini memory + Tl Extended 
basic + Tl logo II + extension 
32 K. Stephane SALMONS. 16 
rue Traversiere 11100 NAR- 
BONNE. 

VENDS Tl 99 + interface 
Secam + manettes de jeu + 
cordon magneto + BE + mini 
memory + manuels + K7 basic 
par soi meme + K7 conseils fi- 
nanciers + K7 + 50 programes 
sur K7 + 10 Hebdogiciels + 2 
99 magazine + 5 modules de 
jeux : 3500 F. XavierJACQ. 8 
rue de la Gare 29235 St THE- 
GONNEC. Tel : (98) 79 42 43. 

CHERCHE le manuel en fran- 
cais du BE et de la mini me- 
moire. Accepte phopocopie. 
Tel : (66) 30 45 45. (NDLNC : 
merci pour le bisou , je ten feis 
un gros aussi). 

CHERCHE possesseur du mo- 
dule "Return To Pirate's Isle" 
pour Tl 99 afin d'echanger des 
indices. JF. CAZEMAJOU. 50 
rue Maurice Becanne 31400 
TOULOUSE. 

VENDS pour Tl 99 interface 
Secam : 350 F. Tel : 885 47 93 
apres 18H. 



VENDS Tl 99 PAL avec manuel 
d'utilisation en francais + joys- 
ticks + cordon magneto + mo- 
dules Echecs. Parsecs, Tl Inva- 
ders. Alpiner, Blackjack and 
Poker + nombreux programmes 
en BS sur K7 : 2300 FF. ou 
15000 FB. P. TASSET. rue val- 
lee 14 4498 BASSENGE BEL- 
GIQUE.Tel : 041 86 24 45. 

CHERCHE R$ 232 C pour Tl 
99. Tel: 16 (6) 494 42 
32. 

VENDS Tl 99 + Tl extended + 
Tl catc + Parsec + Othello + 
cordon magneto + Lunar Lander 
+ Lunar Jumper + K7 + 12 
jeux BS + prise tele + Number 
Magic : 2500 F. Tel :468 37 48. 

VENDS Tl 99 + BE manuel en 
francais + manettes de jeux + 
cordon + magneto + jeu 
d'echec + TV. NB. + nombreux 
programmes sur K7 + jeux + 
trues + astuces pour Tl 99 edi- 
tion P.S.I. : 2500 F. Herve SA- 
LORT. 6 impasse Pasteur 
82100 CASTELSARASIN. 

VENDS pour Tl 99 nombreux 
modules de jeux + manettes + 
BE. Manuel en francais. Pascal 
LEGER. 43 avenue de la Repu- 
blique 94600 CHOISY LE ROl. 

VENDS Tl 99 peritel + exten- 
ded basic + modulateur CGV 
PHS 60 (peritel/antenne) + ma- 
gneto TEXAS + 2 cables + 2 
manettes de jeu + module Bur- 
ger time + Lunar lander + Ca- 
vern Quest + Rubis Sacre + 
Tombe du sorcier + 70 jeux sur 
K7 : 2900 F. a debattre. Laurent 
TILLY. 23 allese des Platanes 
93800 EPINAY S/SEINE. Tel : 
826 4656 apres 19H. 

VENDS Tl 99 + peritel + ma- 
nettes de jeux : 900 F.Olivier 
TROMBERT. 12 rue SylbainVI- 
GNERAS 92380 GARCHES. 
Tel : 741 20 68. 

VENDS Tl 99 peritel + BE ma- 
nuel frangais + mini memoire + 
manettes de jeu + cable liaison 
magneto K7 + 2 modules de jeu 
+ environ 8 K7 + 4 livres : lies 
grands classiques du jeu pour Tl 
99. Pratique de I'ordinateur fami- 
lial Tl 99 + 99 magazine N° 2 : 
2700 F. Aymeric JOSSE. 120 
route des charmes 78320 LEVIS 
ST NOM~(NDLNC: Tu vols il 
suffisait de demander et je te 
fais un gros bisou !). 



VENDS Tl 99 + pal modulator 
+ alimentation + livre: 1100 
FF. ou 7000 FB. P. ROLLET 
STOOKTSTAAT56 9600 RE- 
NAIX BELGIQUE. 

CHERCHE possesseur Tl 99 
BE. pour echanger ou vendre 
des programmes en tous genres 
sur la region NORD PAS DE 
CALAIS. Sylvain ROUSSEL. 44 
rue du Roussillon 62700BRUAY 
EN ARTOIS. 

CHERCHE possesseur de Tl 99 
pour echanger des programmes 
et des idees Antonio SISTO. 
Epenex 15 1024 ECUBLENS 
VD SUISSE. 

VENDS Tl 99 + mini memory + 
BE + gestion + Parsec + 
Othello + Moonsweeper + Ad- 
venture + Pirate + Masch + 
Jungle + Formule 1 + nom- 
breux programmes sur K7 + 
manettes + cordon + magneto 
+ listings + livres : 2500 F. D. 
BESSE. 12 ure du Sergent Ma- 
ginot 75016 PARIS. Tel : 502 11 
33 poste 3048. 

VENDS Tl 99 + magneto + 
cable K7 + poignees + logiciels 
+ livres + K7 + manuel + pro- 
grammes + docs : 2000 F. Tel : 

306 91 13 demander Philippe. 

VENDS Tl 99 + boite extention 
+ unites disk interne + contr6- 
leur + ext 32 K + magneto K7 
+ cordon + joysticks + BE. + 
mini memoire + gestion de fi- 
chiers + 6 modules + 50 pro- 
grammes sur disquettes + K7 
de jeux + nombreux livres et 
revues. Prix a debattre. Tel : 
043 59 98. 

RECHERCHE modules Tl Calc, 
Scrabble, Jeux video I + K7 Jeu 
d'Entreprise, Introduction aux 
echecs. Technique de gestion 
de donnees + livres "Le Ian- 
gage Assembleur pour I'ordina- 
teur familial Tl". Tel : (68) 21 22 
12. 

VENDS pour Tl 99 module BE. 
avec manuel en frangais : 750 
F. Tel : (3) 024 22 73. Deman- 
der Philippe. 



VENDS Tl 99 avec modules BE, 
Car War. Alpiner, Tl Invaders, 
Gestion de fichier + 2 livres de 
programmes + manettes de 
jeux : 2300 F. Tel : (54) 85 00 
50. 



GAG?... NON... PUB! 



VIDEOTROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - 1000 JEUX 



NOS PRIX NEWS ! 



MONITEUR C0ULEUR : 2490 F LECTF.UR DISQUETTES + I jeu : 2890 F 
ATARI H(HI XL SECA.M I ~<M F Moimeur Ei-ran Ambre : 950 F 

il) DISQUETTES NASHUA : 145 F Imprimatur BROTHER, coition 1 T90 F 
AMSTRAD MSX CANON CJH : 2 Wit F Im prim nine : l<WF 

+ moniicui ■■ muleur : 4 4'JO F ORIC ATM OS : 1490 F 

+ moniteur monochrome : 2 990 F CONSOLE COLEC0 CBS: 990 F 
Joystick QUICK SHOT II :!2()F CBM M PAL + IJra - 24911 F 

SPECTRUM* : IbWF CBM M Peritel + I jeu ■ 2H9I) F 

OUVERT DV MARDI AV SAMEDI DE 10 H A 19 H 00 

89 bis. nw <le Chartnton 75012 PARIS 

tel. : 342.18.54 

metro : gare tie Lyon. Leilru Roiliu 
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A, GRAND CONCOURS 
*» PROGRAMMATION 
TOUS MICROS 



^_ Nous consulter 3Z5.51.5Z 

ET (S3) aux lecteurs d'HEBDOGICIEL 

C 64 Peritel + lecteur cassette ~5M& 2 945 F 

Lecteur de disquettes 23*$ 2 650 F 

DES PRIX TOUJOURS FOIIS 

CHEZ MICROSTORY 
14, rue de Poissy, 75005 PARIS d?*£ 



BLANC BERNARD 

DiFORMATIQUE BUREAUTIQUE LYON 

AMSTRAD - SINCLAIR - ORIC 

SHARP - THOMSON - SANYO 

LEANORD - LOCYSTEM 

Blanc Bernard sera present au 

SALON DVF ORA du 16 au 20 avril 

1985 1 STAND 6634\ . 

9, rue Salomon Reinach. 69007 Lyon 
Tel. : (7) 872.25.48 (pres facultes) 

ASSISTANCE TECHNIQUE - LOC1CIEL - FORMATION 



DIFFICILE DE TROUVER 

LE BON LOGICm ? 

Mors n'hesiiex plus et venez les voir en 
demonstration dans la nouvelle 
boutique "LOGICIEL PILOTE". 

Vous y trouverez des programmes, rien 
que des programmes pour votre : 
MACINTOSH, APPLE 2E on 2C, IBM PC 
on compatible. 

Sans aucun engagement de votre part, 
venez decouvrir nos logiciels... 

LOGICIEL PILOTE 

5, rue des COLONMES 75002 PARIS. 

(angle 7, rue de la Bourse) 



VIDEO 107 INF0RMATIQUE 

♦ <> ♦ ♦ o 

PLACE DES FETES 
75019 PARIS 

SINCLAIR QL 5 490F 

SPECTRUM + 1 900 F 

CBM64 + Lect. K7 2 990F 
ORIC ATM0S 1 690 F 

AMSTRAD VERT 2 990F 

Te/. : 207.22.34 - 201.46.09 




CI 

le temple d' AMSTRAD 

Inities d'HEBDOGICIEL, venez, en pelerinage. 

visiter te plus fabuleux monument consacre a 
AMSTRAD en France. 



CADEAU DE BIENVENUE 

a tous les fideles munis de cette annonce 



1 0, boulevard de Strasbourg 
75010 Paris @ 206.50.50 



Heures de culte : 9 h 45 a 13 heures - 14 a 19 heures 
tous les jours sauf dimanche 
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FALLING IN LOVE 

de Via GROSBARD 




Avec Meryl STREEP (qu'est 
toujours aussf belle), Robert 
De N1R0 (qu'est toujours 
aussi beau) et Harvey KE1- 
TEL (qu'a pas change depuis 
la communion de ma p'tite 
soeur). 1H4a USA. 



Ha ! Ha ! Voila un film que tout te 
monde il attend avec impatience, 
hein ? Bande de jeunes voyous ! 
Ca c'est un film qui devrait etre 
bachement bien, non ? An. pour 
sur. Avec des pointures comme 
eux deux, ga ne pourrait etre que 
bien. 

Ca commence mal, hein ! On sent 
sous ce ton enjoue une pointe 
d'ironie qui tend a gacher tout le 
plaisir qu'on savoure a I'avance 
rien qu'a I'idee de voir ce film 
En ben vous avez tout compris. 
C'est pas bien, Un homme, une 
lemme. chabadabada. qui sont 
chacun de leur cote maries, bien 
sages, jamais entre les tepas, bref 
des gens bien. Et manque de pot. 
ils tombent amoureux lun de ('au- 
tre, et non I'un dans lautre. c'est 
d'ailleurs la qu'est tout I'pro- 
bieme. On les voit pendant une 
heure a se draguer gentiment. et y 
s'passe rien. On est la comme 
des ronds de flan, a attendre que 
ca arrive, et ga vient pas, dur ! 
C'est long ! Mais c'est long 
Streep et De Niro essaient tant 
bien que mal de donner un mini- 
mum de consistence a teur per 
sonnage, mais, masseu, les pau- 
vres. quest-ce qui rament ! Mieux 
que ce qu'ils ont fait, j'crois bien 
que ga n'aurait pas ete possible. 
Parce que dans tous les cas la 
performance d'acteur est remar- 
quable. surtout vu le texte. D'un 
autre cote, s'ils avaient 6te mau- 
vais. j'vous raconte pas comme 
on les aurait attendus au tour- 
nant ! 

J'etais plein de bonne volonte" en 
allant voir ce film, bien que deja 
des copains m'avaient dit que 
c'Stait tranchement pas jojo, Mais 
meme avec toute la bonne volonte 
du monde, j'ai pas accroche. Non 
pas que je n'aime pas les films 
sentimentaux, en fait j'adore ga, 
mais c'est tenement long a v'nir ! 
Voila. au moins, vous saurez a 
quoi vous en tenir, et ne v'nez 
pas m'ecrire apres en disant que 
1'vous avais pas prevenu, hein ' 



HORS LA LOI 

de Robin DAVIS 




Avec Isabelle PASCO, Wa- 
deck STANC2AK et Clovis 
CORNILLAC. 1H47. FRA. 



L'Aube Rouge, Prix Mussolini 
du film fasciste '84, est sorli 
trop tot pour que je le des- 
cende dans les pages de I'H 
Hebdo. Ce film, c'est pratique- 
ment la meme histoire, sauf 
qu'ici, curieusement. il n'y a 
pas la composante fascisante 
du premier. 

Une bande d'une douzaine de 
gosses d'une maison de cor- 
rection en cavale. Super ! 
Les jeunes acteurs de 1718 
ans en France, c'est pas le 
pied. Ils se croient generale- 
ment sortts de la cuisine de 
Jupiter et sont done Ires diffici- 
les a maniputer pour un met- 
teur en scene. Ca c'est a la 
decharge de Robin DAVIS. 
En revanche, et a sa charge, 
c'est un film ou que I'histoire 
elle est aussi mince qu'une 
feuille de elope mouillee, c'est 
a dire qu'on y voit au travers ! 
Bon d'accord a priori c'est ptai- 
sant les histoires avec des 



EZH 




edito 



Salut les aminches I Cette se- 
maine on peut dire qu'il y en a 
pour tous les gouts : du musi- 
cal (Le Baiser de Tosca), du 
rornantal et sentimentik (Falling 
In Love), de I'heroic fantasy 
(Ladyhawke) ou de la resis- 
tance (Blanche et Marie). Et 
encore la j'en oubiie un peu, 
J'vous cause plus de Cham- 
rousse, juste un p'tit mot pour 
vous dire qu'on a complete- 
ment merde avec Pidouzzz. 
puisqu'un film de Chamrousse 
est passe- a la tele le samedi 
23 mars sur TF1 : Le Oiable 
Dans Le B6nitier, Bon d'accord 



il etait Hors-competition. mais 
c'est pas une raison pour lou- 
blier. vu qu'en plus il se trouve 
que c'est un bon film. M'enfin. 
j'espere que vous ne nous en 
voudrez pas trop. 
Sinon comme d'habitude je 
n'ai pas assez de place pour 
vous parler de tous les films 
qui sont sortis dernierement, 
genre "Partir Revenir" ou 
"2010". Mais vous inquietez 
pas. tout vient a temps pour 
qui sait prendre son mal en 
patience de ch'val. 
Bonnes vacances et joyeux 
Noel' 

CLOU 



BLANCHE ET MARIE 

de Jacques REWARD 




Avec MIOU-MIOU. Sandrine 
BONNAIRE, Gerard KLEIN, 
Maria CASARES, Patrick 
CHENAIS et Clementine CE- 
LARIE. 1H32. FRA. 



Bon, y s'trouve que j'ai des co- 
pains qu'ont bosse sur ce film. 
En ['occurence c'est eux qu'ont 
fait les d6cors (chapeau, les 
mecs). Dans ce genre de film 
d'epoque, la deuxieme guerre 
mondiale. faire les decors c'est 
jamais une partie de plaisir. 
Imaginez la galere de virer 
tous les parcmetres, les lam- 
padaires et les antennes de 
tele sur tous les toils qui ris- 
quent d'etre pris dans des 
plans en exterieur. Vous voyez 
un peu le genre de delire ? 
Sans compter la realisation de 
boutiques qui doivent redonner 
I'ambiance de I'epoque : les 
emballages des produits. les 
pubs, etc... Essaye2 un peu 
d'observer la finesse des 
decors dans les films que vous 
voyez, ou a la teloche, ou au 
cine et vous m'en direz des 
nouvelles. 

Tenez. j'vous donne un exem- 
ple : il y a une pharmacie dans 
le film dans laqueile plusieurs 
scenes se passent. II faut done 
que le spectateur voit dans la 
boutique des medicaments de 
I'epoque, ou tout au moins les 
emballages. Vous croyez tran- 
chement qu'on en trouve en- 
core beaucoup, vous. des 
tubes de pommade Machpro. 
look '42 ? Non ? Eh ben vous 
avez raison. n'empeche qu'il 
en faut pour le film. Voila par 
exemple a quoi vont se consa- 
crer les mecs de la deco pen- 
dant quelques temps, redessi- 
ner et refaire des emballages 
de produits. Ce ne sont que 
des petits details, pour vous ? 
Mais un film a certainement 
plus de force s'il est authenti- 
que. S'il ne lest pas, le public 
se marre, or elant donne que 
ce film n'aurait certainement 
pas pu figurer dans la selec- 



tion du Festival de Cham- 
rousse, vous pigez le malaise. 
Le film cause de bonnes 
femmes (Oh encore !). Pas de 
n'importe quelles bonnes 
femmes, celles qui etaient re- 
sistantes. Une resistance de 
cuisine parfois, mais ce sont 
Giles qui trimbalaient les armes 
dans leurs cabas, a I'insu des 
Atlemands. C'est dans leur cui- 
sine que les mecs se reunis- 
saient, dans leur cave que le 
matos pour imprimer les tracts 
etait entrepose. Pas mal de 
gonzesses sont entrees dans 
la resistance avant leur mari, 
les machos en prennent tou- 
jours un coup en sachant ga ! 
C'est ainsi qu'on voit Miou- 
Miou faire la bouffe pour ses 3 
gosses (plus le polichinelle 
quelle a dans I'tiroir) pendant 
qu'elie fait du trafic de plastic 
deguise en savon de Marseille. 
Bonnaire. elle. est agent de 
liaison entre divers groupes, et 
c'est pas loujours facile pour 
elle de bosser dans des condi- 
tions ou les mecs essaient de 
profiter d'elle puisqu'elle est la 
seule nana sur le terrain. 
Mais ne croyez pas quelles 
poursuivent impunement leurs 
activites, au contraire, il arrive 
un moment ou elles sont re- 
cherchees comme "terroristes" 
par les Chleus et la c'est pas 
une partie de plaisir pour elles. 
Voila, y'a un i.uc que Renard 
montre tres bien dans son film 
et surtout lors de la scene fi- 
nale a la Liberation, c'est que 
les gonzesses ont ete comple- 
tement deconsiderees par 
leurs mecs, qui ne se sont pas 
rendus compte combien ils 
leur devaient a ces femmes 
qui se battirent dans I'ombre et 
qui leurs apporterent leur (Un- 
gues. Ah putain ! Les mecs ont 
vraiment la memoire courte 
(32K utilisateur). 
Voila c'est un tres bon film a 
se mettre derriere les ientiiles 
de contact, consommons fran- 
cais. Halte aux envahisseurs 
strangers ! 



adolescents, et en plus, on 
s'attendrit beaucoup plus faci- 
lement sur leur sort quand ce 
sont de jeunes delinquants. 
Mais c'est tenement facile, bor- 
del! 

En fait j'ai ('impression que le 
realisateur a fait ce film uni- 
quement pour montrer de 
belles images de la France, 
Parce que s'il y a une chose 
qui est sure a propos de ce 
film c'est que les decors exte- 
rieurs sont absolument super- 



bes et extrememenl bien pho- 
tographies. A se demander si 
ce n'est pas en fait un docu- 
mentaire sur la campagne 
frangaise legerement roman- 
ces. 

Vous pouvez done aisement 
leviter. a moins que vous 
n'ayez des copains qui jouent 
dedans, auquel cas je vous 
donne labsolution. Mais ce 
sera bien la seule raison. 
Enfin, mieux vaut voir ca que 
Le Cow-Boy ! 



box office 



1) APRES LA REPETITION 

2) BRAZIL 

3) PERIL EN LA DEMEURE 

4) LA VIE DE FAMILLE 

5) A LA RECHERCHE DE GAR80 

6) BLANCHE ET MARIE 

7) NUIT PORTE JARRETELLES 

8) PIANOFORTE 

9) ANOTHER COUNTRY 

10) SAC DE NOEUDS 

11) LES SAISONS DU COEUR 

12) LE BAISER DE TOSCA 

13) LA DECHIRURE 

14) LOUISE L'INSOUMISE 

15) LES SPECIALISTES 

16) FLIC DE BEVERLY HILLS 

17) RAS LES PROFS 

18) JUSQU'A UN CERTAIN POINT 
19) 2010 

20) LE THE A LA MENTHE 

21) LADYHAWKE 

22) SOLDIER'S STORY 
. 23) LA RIVIERE 




LADYHAWKE, 
la femine de la nuit 

de Richard DONNER 




Avec Matthew BRODERICK 
(Wargames), Rutger HAUER 
(Blade Runner) et Michelle 
PFEIFFER. 2H00. Ricain. 



De I'heroic fantasy, ga f'sait 
longtemps ! 

C'qui est genial avec ce genre 
de movie, c'est que lout est 
dans le titre, y'a pas d'tezard, 
a tous les coups on gagne ! Si 
vous avez des notions d'an- 
giais.... Non, meme pas quel- 
ques mots... Juste pour me 
faire plaisir... Un peu, allez, 
soyez pas vache... Non, vrai- 
ment, sans fagbn ? Ah boh, 
OK, alors j'vais vous I'dlre. 
Lady ga veut dire Madame, ou 
Ma Dame, raver la mention 
inutile, et Hawk (oui, oui sans 
"e") ga veut dire Faucon. Mora- 
lite, mieux vaut partir a point 
est toujours la meilleure. ah 
zut. j'm'ai goure. Nan, c'que 
j'voulais dire en fait, c'est que 
c'est I'histoire d'une gonzesse 
qui le jour est un faucon et la 
nuit une madame, normale, 
belle et tout et tout. 
Je vois. dans ma boule de 
cristal. poindre en votre regard 
cette lueur d'interet a ce recit : 
s'agirait-il de magie maligne ? 
Eh bien bravo, vous venez de 

gagner au grand sweepstake 
LOU le droit de continuer a 
lire cette page, sans qu'elie 
vous saute a (a gueule, avec 



ces histoires de sorcellerie. on 
ne sait jamais. Mais y'a un true 
que vous voyez pas dans le 
titre, comme quoi y mettent 
pas toujours tout, sinon bon- 
jour la longueur des hues, 
genre "De Historiae Falcanum 
ex Journus et Lupus by Nigh- 
tum and Barnum et Palladium 
et Pluribus Unum, Senatus Po- 
pulus Que Romanum, et Cae- 
tera". enfin vous voyez le 
genre, done comme j'vous I'dl- 
sais-je, c'qui manque dans le 
titre, c'est qu' elle est accom- 
pagnee par un monsieur qui lui. 
la nuit, est un Loup (Lupus 
Vulgus). 

Et qui c'est le vilain monsieur 
qu'a impose ga a ces amants 
"eternellement ensemble et 
eternellement separes" ? Je 
vous le donne en mille. c'est 
I'eveque d'Aquila, supreme sa- 
lopard devant I'Eternel. Ca 
vous en bouche un coin, non ? 
Savoir que meme la noblesse 
de robe ait pu sabandonner a 
de telies vilenies ! Et alors evi- 
Semment, lis vont essayer de 
se defaire de ce mauvais sort, 
parce que c'est vrai, quoi a la 
fin, c'est vraiment pas de pot, 
et qui c'est qui va les aider ? 
Matthew Broderick. ou La 
Souris. 

Bon. ga va, je sais bien que 
vous voulez que j'vous cause 
du film, comment qu'il est, est- 
ce que ga vaut le coup qu'on 
investisse 30 balles dans 120 
minutes dimages, etc., Eh 
bien. je n'irais pas par quatre 
chemins, mais avant tout je 
tiens a signaler a mon aimable 
lectorat que ; 

- les paysages sont superbes. 

- les scenes animalieres sont 
un peu tongues a mon gout, 
genre Rossif ou Disney, et on 
etait pas venu pour ga. 

A part ga . ga va . 



LE COW BOY 

de Georges LAUTNER 




Avec Aldo MACCIONE, Aldo 
MACCIONE, Aldo MAC- 
CIONE, Aldo MACCIONE, 
Aldo MACCIONE et enfin 
pour la premiere fols a 
l'ecran....Aldo MACCIONE 
(quelle surprise !). Les 
autres acteurs, on s'en lout 
vu qu'y font juste que de la 
figuration ! La duree du film, 
vous voulez vraiment savoir 
combien de temps durece 
chef-d'oeuvre du Musee du 
Cinema Nul ? Hein, vrai- 
ment ? Oh ben non alors ! 



Comme vous vous en douliez 
deja ce film.... n'est pas un film. 
C'en est un ersatz et c'est tout. 
Que ceux qui veulent y recon- 



nai'tre une piece incomparable 
du 7eme art sortent ! 
Aldo MACCIONE. le bien 
nomme, qu'est moche comme 
un pou. se tombe toutes les 
gonzesses qui lui passent sous 
le nez. Deja. rien que ca j'y 
crois pas. 

Et en plus de ga c'est un flic ! 
Au moins Eddy MURPHY avail 
le bon gout d'etre rigolo, mais 
la c'est a peine si on es- 
quisse un semblant de ce 
qu'on pourrait peut-etre appe- 
ler un sourire. c'est dire. 
C'est mal filme, mal jou£. mal 
tout, bref c'est tres mauvais. 
Et en plus de ca chuis tene- 
ment con que j'suis reste jus- 
qu'a la fin, erreur fatale. J'en ai 
encore la nausee. Berk I Berk ! 
Berk! 

Vous voulez que j'sois encore 
plus mechant ? Allez, nan. En 
revanche, si j'apprends que 
I'un ou I'une d'entre vous a 
ose mettre de I'argent dans ce 
film, je I'etripe. Non mais ! Fau- 
drait pas prendre les gens 
pour des cons aussi '. 
Et n'oupliez pas de me remer- 
cier pour vous avoir empeche 
d'aller voir cette merde. 



LE BAISER 
DE TOSCA 

de Daniel SCHMID 



Avec tous les vieux rigolos 
de la CASA VERDI. 1H26. 
RFA. 



Ah ben la chuis masque ! Ima- 
ginez un film avec que des 
vieux. Ouille ! A priori ga m'dit 
pas grand-chose. Des vieux, 
plein de vieux de 70/80 ans. 
R'marquez c'est normal vu que 
ga parle de la vie de ces vieux 
dans leur maison de retraite, 
done y a pas de quoi en faire 
un plat de tous ces vieux, Mais 
quand meme, ga deconte- 
nance. 

Maiaiaiais ces vieux, eh ben y 
zont queique chose de special, 
he. he ! Ce sont tous des mu> 
siciens classiques au rencard 
Bon alors que ceux qui ne ju- 
rent que par ACDC. Judas 
Priest, Prince ou France Gall 
se tirent et que ceux qui n'ont 
pas de prejuges sur la zik en 
g6neral (c'est eux qu'ont rai- 
son) restent. 

On les voit tous en train de de- 
lirer joyeusement. D'toutes ma- 
nieres delirer autrement que 
joyeusement c'est carrement 
sinistre. 

Bon, treve de digression. Y 
chantent Carmen, La Tosca. 
Rigoletto et autres fameux 
operas qu'ils eurent avaient 
ete chante dans leur prime jeu* 
nesse. Certains n'ont appa' 
remment pas joue de leur ins- 
trument depuis de nombreuses 
annees, que ce soit ou la voix 
ou le violon, mais y en a 
quand meme qu'ont garde un 
organe, que si j'avais le meme 
ga s'rait pas du rock'n'roll mais 
de I'opera que j'chanterais 
sous ma douche le matin i 
Y a p'tetre un true que j'ai ou- 
biie de mention ner. Tous ces 
vieux-la sont loges (certains 
depuis 40 ans) a la CASA 
VERDI. C'est un palais qu'a 
fait construire un illustre "in- 
connu", Giuseppe VERDI, pour 
les vieux musiciens sur la lou- 
che qu'ont jamais ete assez 
celebres afin de se garantir 
une retraite doree a I'ombre 
des palmiers de la croisette ou 
des Bermudes ou des plaines 
arides de Venus la belle (rayer 
la mention inutile). Et done ce 
cher VERDI qui pensait a tout, 
decida de leguer les droits 
d'auteurs de ses oeuvres a 
cette maison de retraite qu'il 
avail creee. Le probleme, c'est 
que ces droits d'auteurs sont 
maintenant tombes dans le do- 
maine public, dur pour les 
vieux qui s'eclataient tranquille- 
ment. 



A propos de droits d'auteurs 
echus, et pas du tout a propos 
du film, sachez que si I'annee 
derniere on vous a rabattu les 
2 oreilles avec le Carmen de 
Merimee et mis en opera par 
Bizet (merci Saura, Rosi and 
Co), c'est parce que jistmon 
les droits sur les oeuvres de 
ce cher Prosper (Youp-la 
Bourn !) sont devenus publics 
en '83. Nan, mais j'disais ga 
juste comme ga pour votcul- 
ture. 

Moralite, vous n'etes pas obli- 
ges d'etre des fans d 'opera 
pour voir ce film, au contraire. 
Pour une fois qu'y a quelqu'un 
qui s'interesse a des vieux pas 
chiants, faut en profiter ! 

PS : Vous avez r'marque que 
ce sont des Teutons qui ont 
realise le film, et non pas des 
Ritals. Comme quoi, il n'y a 
malheureusement plus qu'en 
Allemagne (au niveau euro- 
peen) qu'on s'interesse au 
classique. merde, y a pas 
qu'ga f 



tUoche 



EDI TO 



Vous vous souvenez la photo 
de I'Edilo de Bombyx. Comme 
moi je suis franchement trouil- 
lard, je m'en vais vous pondre 
quelques mots, pour ne pas 
subir le meme sort que mon 
collegue et neanmoins ami. II 
est dans un etat le pauvre... 
Quoi dire de la programmation 
televisuelle de cette semaine. 
Mouuuuais... Curieux melange. 
C'est tout bon, ou tout mau- 
vais. II devait rester un certain 
nombre de films dans les ti- 
roirs des chaines. alors ils se 
sont dit : tiens, oui celui-la, 
pourquoi pas, ca fait long- 
temps qu'on ne la pas vu. il 
n'y a pas trop de concurrence 
sur les autres chaines. Tiens. 



une emission sur la delin- 
quence. voila qui les changera 
de Le Pen,. Bref on se tate, 
on meuble. 

C'est siir qu'un bon Mankie- 
wicz. un Hitchkock. un Saura 
ou un Verneuil (Coconco III). 
c'est pas ma!, mais pour le 
reste, c'est bonjour tfistesse. 
On est loin des semaines ou 
on regrette de ne pas avoir un 
enregistreur d'images. 
M'ennnnnnfin... vu que pour 
CLOU (cinoche) c'est pas tene- 
ment plus edifianl, je me dis 
que c'est dans lair, on se 
contente du mediocre. Vous 
vous en contentez vous ? 
Allez. louche pas a mes pro- 
grammes tele ! 



HITCH FOR EVER • 

pas de printemps pour Mamie 



Rim de A. Hitchcock avec 
Tippl HEDREN et Sean 
CONNERY. 

Vers la fin de sa vie. Hitch ten- 
tait de (aire dans la psycholo- 
gie. Ce film en est une des 
preuves. C'est I'histoire dune 
femme (Mamie) qui est klepto- 
mane jusqu'au bout des doigts. 
Elle ne peut pas s'empecher. 
quand elle travaille dans une 
entreprise de partir avec la 
caisse. Etonnez-vous apres ca 
qu'il y ait 2 millions de cho- 
meurs... Mais un de ses colle- 
gues (Mark Rutland) decouvre 
que cette jeune femme si char- 
mante {qu'il auralt volontiers 
fait sauter sur ses genoux) 
n'est pas exempte de tout re- 
proche. II a pige le petit lute 
Eh bien, au lieu de faire ce 
que tout employ6 modele fe- 
rait. c'est a dire carter au pa- 
tron contre une mutation au 
service du personnel, lui il 
remplace I'argent vole, et fait 
comme si de rien n e tait. Plus 
tard, il part a la recherche de 
la nevropathe. et une fois re- 
peree. il lui fait un chantage 
tmmonde. Tu m'epouses. ou je 
vais voir la police (machiaveii- 
que isn't it ?). La pauvre, ceder 
or not ceder... Eh bien elle 
cede. 

Mais notre maitre-chanteur 
n'est pas au bout de ses 
peines avec cet oiseau-la. 




Lui qui se laisait une joie de 
jouer a papa et maman avec la 
demoiselle, voila que super 
kleptowoman est frigide, gla- 
cee comme un kimcone sans 
la gaufrette. Ca c'est la faute a 
pas de chance. Alors il se dit : 
peut-etre que sa "Marnie" de 
voler et son c6te hlver rigou- 
reux en Serbo-boldavie sep- 
tentrionale sont lies. Sen suit 
une enquete dans le surmoi du 
vecu de son for interieur a elle, 
dont je vous passerai les de- 
tails. 

Un peu plus de suspense et 
molns de psychanalyse aurai! 
ete plus be net i que. Mais 
quand meme Hitchcock sera 
toujours Alfred. Ca c'est un 
label de qualite. 

Diffusion le 14 a 20h35 sur 
TF1. 



4. 



QUOI DE NEDT DOCTEUR ? 

on murmure dans la ville © < 



People will talk. Film 
de J. MANKIEWICZ (1950) 
avec Cary Grant. Le Docteur 
Praetorious (Cary Grant) a ou- 
vert une clinique pour femmes 
dans une petite ville universi- 
taire du Middle West. Specie- 
lisle de la chair, on lui en offre 
une a la faculte de medecine. 
II est beau, riche, elegant, 
sportlf (II se prenomme Noah, 
devinez a quoi il joue ?). Une 
de ses clientes. Deborah Hig- 
gins. jeune etudiante, a qui il 
apprend quelle est enceinte, 
tente de se suicider. Noah lui 
fait croire alors qu'il s'est 
trompe dans I'anaiyse des re- 
sultats (1 set a rien). Puis son 
charme operant (ses mains 
aussi, mais c'est une qualite 
professionnelle), il I'epouse et 
sera bientot p&re (Merci Ber- 
nard, a vous les studios). 
Tout docteur Jekill a un alter 
ego (Mr Hyde pour ceux qui 
debuggent pas le latin). Celui- 
ci se nomme Rodney Elwell. II 
est moche, vieux, fourbe, ja- 
loux, malveillant... II foulne 
dans le passe du bon docteur 
et repand des rumeurs, des 




humeurs et des clameurs sur 
Praetorious. Convoque devant 
le comite de la faculte sous 
I accusation de pratiques non 
orthodoxes Noah confond son 
vil ennemi. 

Pour mieux comprendre le film, 
il est necessaire de le replacer 
dans son contexte: Le Maccar- 
thysme faeces hys!6rique 
d'anti-communisme). Les dialo- 
gues et les scenes sont pleins 
de sous-entendus. Un apergu : 
le salaud se nomme ELWELL 
(= le Bien). c'est vous dire. De 
toutes facons meme au- 
jourd'hui, ca reste un super 
film. 

Diffusion le 14 a 22h30 sur 
FR3. 



I NEED SOMEBODY HELP .JSjL 
sorties de secours D ■ ( -<^Q ) ,y 




Lundi 8 Avril 



20h30 C + : LE CHAT ET LE CANARI (Titi film de 

suspense) 
20h35 FR 3 : LE PION (1978) film de C. Gion avec C 

Pieplu et M. Galabru 
20h35 TF 1 : L 'OR DE MACKENNA avec G. Peck. O 

Sharif, el T. Savalas 
20h35 A2 : RA YMONDA (ballet) 
22h20 TF 1 : ETOILES ET TOILES (magazine du cine 

tranche) 
23h00 FR 3 : THALASSA (magazine iode) 



Mardi 9 Avril 



20h30 C + 
20h35 FR 3 
20h35 TF1 
20h35 A2 



LA CRIME (Ce film en est un) 
MELODIE EN SOUS-SOL (voir article)^- 
ENIGMES DU BOUT DU MONDE 
RENDS-MOI LA CLE 



21h35 TF 1 ; LE THIBET (Documentaire. Pour le Yeti 

seulement) 
22h10 C + : CIRCULEZ, Y A RIEN A VOIR (si.sil 
22h15 A2 : MARDI CINEMA. (Lisez plutot CLOU) 
22h30 TF 1 : TINTAM'ARTS (varietes) 



Mercredi 10 Avril 



20h30 TF 1 ; DALLAS 

20h35 FR 3 : CADENCE 3 

20h35 A2 ; A CAUSE D'UNE CHAUSSURE (un 

petit pied grace a la distribution Mitchum 

+ Dinckinson + Ferrer) 
21h00 C + : NOCES DE SANG (voir article) A 
21h30 TF 1 : DOCUMENTAIRE le taxi jaune 
21h55 A2 ; PERLE DE STAR (75 mm de fou-rire) 
22h10 C + : LE GRAND CARNAVAL (Hamn est a la 

fete) 
22h25 FR 3 ; LES HONNEURS DE LA GUERRE 

22h35 TF 1 ; COTE D AMOUR (Le rock capitaliste) 



Jeudi 11 Avril 



20h30 C + : PRENDS TON PASSE-MONTAGNE. 

ON VA A LA PLAGE (le cesar 83 du 

film nul) 
20h35 FR 3 : HtSTOIRE DVN JOUR : Mai 68 
20h35 TF 1 : LE CANON PAISIBLE if 2 
20h35 A2 : PRINCESSE DAISY rf 1 
21h30 TF1 : LES JEUDIS DE L'INFORMATION. 
22h10 A2 : MUSIOUES AU COEUR: Loperette 

Viennoise 
22h10 C + : ALEXANDRE LE GRAND 

(Film grand spectacle en V.O.) 



Vendredi 12 Avril 



20h35 A2 : CHATEAUVALLON 

20h35 FR 3 : AGATHA CHRISTIE : La perte rose 

20h35 TF 1 : PORTE BONHEUR (a vos kleenex) 

21h35 A2 : APOSTROPHES : Portraits 

21h50 TF 1 : LE GRAND BETISIER (Inedits televi- 

suels. Droles?) 
22h10 FR3: DECIBELS DE NUIT 
22h20 C + : LIBERTY BELLE (Nostalgie quand tu 

nous tiens) 
23h00 A2 : LE CIEL PEUT ATTENDRE (voir articled 



Samedi 13 Avril 



20h35 TF 1 ; FONTANES: Le Soulier dor 

20h35 A2 : CHAMPS EL YSEES (Michou for ever) 

20h35 FR 3 ; DISNEY CHANNEL 

22h10 TF1 : DROIT DE REPONSE 

22hl 5 A2 : LES ENFANTS DU ROCK : Julien Clerc 

22h15 FR3: DYNASTIE 



Dimanche 14 Avril 



20h35 A2 : LE GRAND RAID 

20h35 TF 1 : PAS DE PRINTEMPS POUR MARNIE 

(voir article) # 
20h35 FR 3 : LE SHOPPING DEMAIN (A vos cabas) 
21h00 C + :HANNA K. film de C. Gavras (1983) 

avec J. Qayburgh et J. Yann 
21h35 A2 ; SORTIE DE SECOURS (voir article )D 
22h30 FR 3 : ON MURMURE DANS LA VILLE (voir 

article! O 




Serie de 4 emissions sur la 
repression de la delinquance 
juvenile 

Quatres experiences originates 
BIRMINGHAM, STOCKHOLM, 
TURIN, NEW-YORK films par 
4 equipes francophones. 
Comment punir et reinserer les 
jeunes deviants au sein de la 
societe ? Grace a I'informati- 
que, c'est evident, non ? Pas 



pour les reaiisateurs de remis- 
sion, ni pour les responsables 
des programmes de recupera- 
tion des dechets. Et on 
s'etonne du taux de recidive. 
mais veritiez les datas, bon 
sang ! 

La premiere (et la memeure) 
des enquetes porte sur la ville 
de BIRMINGHAM. Un decor a 
mi-chemin de lusine et de la 
prison avec 2 millions d'habi- 



tants. c est pas la |Oie. Plus le 
chdmage. plus Tatcher a la 
tele = le SPLEEN. Resultat les 
jeunes deconnent et vont en 
taule. Pas n'importe ou. mais 
dans des centres de detention 
soumis au regime du "choc sa- 
lutaire". Le regtement ressem- 
ble a celut des camps militai- 
res disciplinaires. Taux de 
recidive ■ 80% 

Commentaire : on transforme 
des adolescents perturbes en 



delinquants muscles et 
confiants en eux. 
Heureusement il existe par ail- 
leurs le Travail d'lnteret Gene- 
ral, formule de probation ou le 
leune est condamne a des 
heures de travail d ulilite so- 
ciaie (aider les vieux, les impo- 
tents. ies handicapes ...J. Cer- 
taines de ces heures sonl 
consacrees a la reparation des 
dom mages causes Chez les 
victimes Le sommet de I'hu- 
mour british. c'est la rencontre 
entre le voleur et les cambrio- 
les. - je m'excuse pour le car- 
reau casse 

- ce n'est pas grave, vous re- 
prendrez une tasse de the 7 

- j'ose pas. j'ai deja pris les pe- 
tites cuillers. 

Diffusion le 14 a 21h35 sur 




teloche 



■ \ LA PETITE MUSIQUE DE NTJIT 
Vj melodie en sous-sol fy 



Film de Henri Verneuil avec 
J.Gabin. A.Delon. V.Romance. 

Les temps sont durs pour les 
cambnoleurs. Quel metier, je 
vous jure. Mr Charles (J 
Gabin) sort de prison. Comme 
il se fait vieux. il decide de 
commettre son dernier coup 
Le hold-up du siecie. Quand 
on veut faire le casse des 
casses, il n'y a pas trente six 
mille solutions, le rapide de Li- 
verpool, ca avail deja ete fait. 
la ste Generate de Nice, it la 
gardait pour son petit neveu. 
reste le casino de Cannes. 
Voila une cible quelle est 
bonne, on a pas idee de I'ar- 
gent qui peut circuler dans un 
endroit pareit. Mr Charles il en 
a une petite (idee). 
Premiere logon : bien s'entou- 
rer. II fait done appel a Francis 
(A Delon). pour la partie aero- 
batique. Pour la partie 
conduite, ce sera Louis, le 
beaut a Francis, qui est meca- 
nicien de son etat. 
Deuxieme lecon : penetrer len- 
droit. Ainsi done. Francis va se 
faire connaitre dans le casino 
suscrte II va draguer comme 
un fou. jouer des sommes gas- 
tronomiques. tout ca pour ne 



pas etre suspecte te sour J a 
I'heure H a la minute M. etc 
Quand tout est pret, l'operatio< 
est lancee. Je vous passe tout- 
les imprevus, les trues qui do- 
chent, pour passer tout de 
suite au denouement. Done 
tout est termine, quand sou- 
dain. , Vous ne me croyez 
quand meme pas assez vache 
pour vous raconter la fin ? Sa- 
chez seulement quelle est : in- 
nattendue. surprenante. spec- 
taculaire. in-cro-yable, 

grandiose... Bon. quand tout 
sera termine. vous n aurez 
qu'un mot : BRAVO ! Ca c'est 
du suspense, et du bon I Bien 
jou6, bien tilme. un montage a 
vous couper le souffle. 3 rai- 
sons de regarder ce film. 
Diffusion le 9 a 20h35 sur 
FR3. 



Gfll LURON EST UN BON DIABLE 
le del peut attendre A 



Film de E. LUBITSCH (1943) 
avec Gene Tierney, Don 
Ameche et Charles Coburn. 

La porte s'ouvre. un horrible 
diablotin de 3eme categorie 
apparait. monte sur une bar- 
que sur laquelle il invite Henry 
Van Cleve a prendre place. 
Amen6 devant SATAN pour 
rendre compte de ses peches, 
il confesse une vie de bambo- 
cheur : j'ai toujours aime les 
femmes. te vin, la musique. Et 
Van Cleve d'evoquer ses fras- 
ques en vrac et en frac. Satan 
va-t-il laccepter ? II lespere 
car ce bon diable (pas radin) 
semble plus drdle que le Para- 
dis (rose) 

Dans son check-up. on note : 
I'enlevement de Martha (Gene 
Tierney). la fiancee de son 
cousin (YOOOHIIIIYOOOOO, 
vous Gene, moi Henry): le par- 
tage dune danseuse avec son 
fils (le sens de la famille est 
une vertu); la perversion du fils 
(il engage des dames de con- 
pagnie pour son papa).... 

Ce film est un teslament. Spiri- 
tual. Spirituel parce que bril- 
lant, fin, plein d'humour et ja- 
lonne de bons mots, spirituel 
parce que Lubitsch y a mis 
tout son coeur et toule son 




Aimez-vous Sade '■ 



ame. Serieusemenl atteint par 
une attaque cardiaque quel- 
ques mois plus tot, II prend 
conge du public et lui offre la 
quintessence de sa philoso- 
phie de la vie. Dans ce chant 
du cygne (YOOOOHIIIIYOO) 
autobiographique, Lubitsch 
nous montre une vie. de reve, 
ou il vogue sur une mer de 
Champagne dans le salon de 
premiere classe d'un transa- 
tlantique, ou il lume des ciga- 
res gros comme des chemi- 
nees, ou il papillonne autour 
de femmes plus belles les 
unes que les autres. 

Enfer et damnation, ce type a 
6te I'un des plus grands dea- 
lers de cette usine a reves 
(Hollywood, pas le chewing- 
gum). Encore. Encore. Encore. 
Diffusion le 12 a 23h00 sur 
A2. 



VIVE LA MARINE 
noces de sang a 



Film de Carlos Saura Avec le 
"Ballet nacional de Espaha" 
de A.Gades. 

Si vous aimez I'esprit espagnol 
(plus precisement andalou). la 
musique espagnole. les 
danses espagnoles. les espa- 
gnols (es). les castagnettes. el 
la paella, reservez des mainte- 
nant voire soiree et depechez- 
vous d'aller acheter un deco- 
deur chez voire revendeur le 
plus proche. Eh oui, helas ce 
superbe film est diffuse sur 
Canal Plus. 

Pour la petite hisloire. sachez 
que ce film est inspire du ballet 
du meme nom, inspire lui- 
meme dun lexte de Garcia 
Lorca : noces de sang (1935) 
Ca c'est de la culture.., Le 
theme en est simple. C'est la 
repetition de la ceremonie dun 
mariage entre un et une jeune 
espagnol (e) (qui I'eut cru)- 
La premiere partie. ce sont les 
preparatifs. On habille les 
maries, les invites (es) el les 
parents font leurs dernieres re- 
commandations a leurs cheres 
tetes blondes qui. comme on 
est en Espagne. sont brunes. 
Deuxieme partie, c'est la fete 
proprement dite ; toul en ballet. 
I bonpur la iolie. C'esl I Espa- 




gne dans voire petite boite a 
images. 

Les danseurs sont superbes, 
les danseuses magnifiques. la 
choregraphte efficace, les cos- 
tumes authentiques. el la mu- 
sique est super-prenante. C'est 
tenement genial, qu'apres quel- 
ques minutes, vous pousserez 
le buffet Henri II et la table de 
ferme pour y ailer de votre tre- 
moussemenl a vous. Un der- 
nier conseil. si votre voisin du 
dessous cogne au plafond 
avec son balai, c'est qu'il n'a 
pas C+ : invitez-le a danser 
avec vous, ga vous fera un co- 
pain de plus I Bref, je n'aurai 
qu'un mot pour qualifier ce 
film : ole ! 

Diffusion le 10 a 20h30 sur 
C+ . 
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ALICE 90 


16 


40 


420 


2495,00 


2950,00 


1000 


COMPRIS 


1590.00 


370.00 


8405.00 


80 COLONNES 


ALICE 


AMSTRAO 


3^ 


b4 


1B0 
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COMPRIS 
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NOTHING 


APPLE He 


1b 
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\l 
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COMPRIS 
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DES CARTES EN PAGAILLE 


VIEUX ! 




32 
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16890,00 


16 BITS, MS.VOS 


JEUNE, PAS DE JOYSTICK I 
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EOF 


VIEUX 1 


COMMODORE 64 


ai 


b4 
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1500.00 


120.00 
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LOGICIELS DE JEUX 


PEU DE LOGICIELS PRO 
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B 


b4 
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1000 
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at 


34 
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CLAVIER SEPARE 


INFRAROUGE ETEIGNEUR DE TELE I 
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COMPRIS 


COMPRIS 


COMPRIS 
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710,00 
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CLAVIER SEPARE, 2 DRIVES, 


LAID! 




lb 
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FORTH 
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PLUS? 


PRIX PEAU DES FESSES I 


HECTOR MX 


lb 
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COMPRIS 
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120,00 
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FORTH* ASSEMB+ LOGO* BASIC 


PRIX PEAU OU CUL 1 


L ANSA Y 64 


■M 
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COMPRIS 


1500.00 
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FANTOMAS 1 
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w 


b4 
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COMPRIS 
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PRESQUE COMPATIBLE APPLE 


IMITATION! 
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20 


9b 
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LOGICIELS INCONNUS AU BATAILLON I 
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24 


BO 
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3500,00 


5650,00 
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COMPRIS 


1500.00 


120.00 
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2 DRIVES 


INUSITE I 
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an 


32 
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2850.00 


3490.00 


1000 


COMPRIS 


1500.00 


120.00 


8960,00 


STANDARD MSX ? 


PAS DE LOGICIELS PRO I 


MSX 64 KO 


32 


64 
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3490.00 


1000 


COMPRIS 


1500.00 


120,00 
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STANDARD MSX I 


ITOU ! 


ORIC ATMOS 


16 


4B 
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1579,00 


3690,00 
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COMPRIS 


1500,00 


310,00 
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YA PLEIN DE COPAINS ! 


DISQUETTE POURRIE 1 
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32 
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9900,00 


COMPRIS 
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COMPRIS 


1500,00 


NON 


12400,00 


16 BITS, MS/DOS 


PAS DE JOYSTICK I 


SHARP M2 600 


lb 


84 
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4630.00 
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COMPRIS 


1500,00 


120,00 


11260,00 


ATTENDEZ. JE CHERCHE 1 


MZ! 


SINCLAIR OL 


48 


12B 


160 


5500,00 


3990,00 


1000 


COMPRIS 


1500,00 


120,00 


12110,00 


JE TROUVE PAS 1 


MICRO-DRIVE A JETER I 


SINCLAIR SPECTRUM • 


1b 


48 


1B0 


1650,00 


3990.00 


moo 


COMPRIS 


2250,00 


380.00 


9270,00 


YA AUS,SI DES COPAINS I 


PAS DE LOGICIELS PRO ! 


SINCLAIR ZX 81 16 KO 


b 




120 


940.00 


2695,00 


1000 


COMPRIS 


1950,00 


370,00 


6955,00 


LE MOINS CHER 


TOUCHES ! 


SOUALE 


4 


9b 


320 


3400,00 


3100.00 


1000 


COMPRIS 


1500,00 


240,00 


9240,00 


OUI, PLUS ? JE NE VOIS PAS 1 


PERDU SEUL DANS L OCEAN ! 


TANDY COLOR 2 


1b 


lb 


178 


2295,00 


4795.00 


1000 


COMPRIS 


1500,00 


100.00 


9690,00 


REPANDU 1 


REPANDU ? 


TEXAS Tl 99 4A 


2b 


lb 


110 


1600,00 


5400.00 


1000 


COMPRIS 


2590,00 


192.00 


10785,00 


INUSABLE 


PLUS VRAIMENT FABRIQUE I 


THOMSON M05 


lb 


48 


80 


2150,00 


3380.00 


1000 


COMPRIS 


2350,00 


580.00 


9460,00 


FRANCAIS 1 


MOLLE, LA ROM I 


THOMSON TO7/70 


22 


48 


80 


3180,00 


3380.00 


1000 


480,00 


2350,00 


580,00 


10970,00 


LUI AUSSI 1 


MOU, LE CLAVIER ! 


VIC 20 16 KO 


213 


1b 


175 


1690,00 


2790,00 


1000 


COMPRIS 


1500,00 


120,00 


7100,00 


VOILA, VOILA I 


PLUS VRAIMENT DISTRIBUE I 


YENO 3000 


32 


lb 


380 


2600,00 


5000,00 


1000 


COMPRIS 


1500,00 


240,00 


10340,00 


A ACHETER CHEZ CARREFOUR I 


NE SACHETE OUE CHEZ CARREFOUR ! 



Suite de la page 1 
facons, nous mettons la meme a 
tout le monde Seul le prix de I'in- 
terface change. En parlant de prix, 
regardez celui de I'mterface Atari : 
presque 200 sacs, plus cher que 
I'ordinateur iui-meme ! Dans le 
style "je recupere du fric sur tout', 
Sinclair. Thomson et Texas ne sont 
pas mai non plus. Beaucoup dispo- 
sed heureusement d'interfaces pa- 
rallels mtegrees et certains olfrent 
6galernent des RS 232 sans un 
rond de plus. 

JOYSTICK CHIC. 
JOYSTICK CHOC 

(.'interface joystick est le dernier 
mailion de la chaine. L'Apricot et le 
Sanyo n'en ont pas, ils ont 16 bits 
a la place, e'est au moins aussi 
amusartt. D'ailleurs ces deux engins 



n'ont rien a (aire ici, des ordina- 
teurs professionnels au beau milieu 
de familiaux. A quatre details 
pres : 

1) Et I'Appie. il a pas commence 
comme ga, I'Appie ?. 

2) Les prix. Le Sanyo se pave le 
luxe d'etre moins cher que I'Appie 
et avec queues possibility ! 

3) Avec la configuration a la mor- 
moil que nous avons cboisie , its 
n'ont pas I'air si pizza que ga. (Eiie 
commengait a vous manquer ma 
pizza ? Si je vous gontle, il Faut le 
dire) 

4) Je peux ecrire ce que je veux. 
e'est mon article, non ? 

Pour revenir aux joysticks, nous 
avons compte' 120 francs pour les 
machines qui comportent une prise 
en standard. 120 francs e'est le prix 
d'une bonne manette, si vous avez 
payri la vdtre plus cher, vous vous 



efes fait avoir une lois de plus ! 
Pour cet accessoire. les contruc- 
teufs frappent fort : 370, 380, 390, 
450. 580, 710 francs a sortir en 
plus. I'escaiade ! 

CAPUCINNO 

Voila. vous avez le resultat des 
courses sur cette magnifique liste 
classed par ordre de prix et le detail 
dans un superbe tableau compara- 
tif. Je ne vous dis pas de regarder 
comment est classfi Amstrad, je fa- 
tigue ! Y'en a marre de cette ma- 
chine, ton jours bien p!ac6e. Vive- 
ment que Jack arrive avec ses 
bombes atariennes, en attendant 
son 800 XL n'est vraiment pas ('af- 
faire du siecle ! Bon. pour le reste, 
je suppose que vous savez lire ? ■ 



■&•&■& 



Suite de la page 28 

- Restez vachemenl calmes ! 
hurle une voix dont le proprie- 
taire semble avoir atteint le pa- 
roxisme de I'excitation. 

- Ceci est un detournement 
d'avion au profit du peuple de 
Moleskine ! Nous allons nous 
poser a La Havane ! Le 
commandant renegat revrsio- 
niste vient de faire un infarctus. 
mais I'hotesse de I'air est aux 
commandes. Rien n'arrete la re- 
volution en marche I 

Le zingue bascule de droite et de 
gauche. Les reacteurs rugissent 
comme des damnes et grillent 
un vol de mouettes au passage, 
signe que la terre nest plus tres 
loin. Mes deux voisins serrent 
tenement les fesses qu'on y glis- 
serait pas une disquette 5 




pouces. Quant a moi, j'ai ajuste 
mon beret jusqu'aux gencives, 
et j'attends calmement agrippe a 
ma canne que Saint Prefontai' 
nes me prenne sous son aile et 
m'invite a sa table. Pour ne pas 
ceder a la panique, je revise 
mentalement les departements 
frangais avec les prefectures et 
les sous-prefectures. J'en suis a 
Creuse-Chef-Lieu-Gueret quand 
I'avion donne un brusque coup 
de queue a la Moby Dick... 

(Ne ratez pas le prochain epi 
sode de Pepe Louis Channel 
Vous y verrez Pepe Louis, le 
Vengeur au Beret basque, aux 
prises avec le dictateur Fidel 
Monastorio et le sergent Garcia, 
Une passionnante aventure 
dans les Nes intitulee : 
SALSA DU GRAND'PERE !) 



^ 



M.S.X. 

LE STANDARD 

MICRO 



en PROMOTION 

DANS LES BOUTIQUES 

MICRO DE PARIS 




SANYO PHC 28 MSX 
2 295 F TTC 

Pack 3 Logiciels : 250 F TTC 

- 1 Arcade 

- 1 Aventure 

- I Budg. Famil. 



m 



Ensemble 2, comprenant ; 

- 1 PHC 28 SANYO MSX 

- 1 Lecteur K.7 Prog. 

- I Moniteur Monochrome 

+ 1 Pack 3 Logiciels Gratuit 
" 3 750 F TTC 



Ensemble 1, comprenant : 

- 1 PHC 28 SANYO MSX. 

- 1 Lecteur K7 Prog. 

- I Pack 3 Logiciels 

2 790 F TTC 

Ensemble 3, comprenant : 

- 1 PHC 28 SANYO MSX 

- 1 Lecteur K7 Prog. 

- I Moniteur Couleur 

+ 1 Pack 3 Logiciels Gratuit 
5 195 F TTC 



ET BIEN SUR, tous les peripheriques, accessoires, logiciels, 
livres sur la revelation M.S.X. 



SANYO 16 BITS 

le 

PROFESSIONNEL 

MBC 550 

Azerty - 128 K RAM 
1 Drive 160 K - MS DOS 

1 Moniteur Monochrome 
8 423 F H.T. 

9 990 F TTC 

MBC 555-2 

Azerty - 128 K RAM 

2 Drive 360 K - MS DOS 
1 Moniteur Monochrome 

11 796 F H.T. 
13 990 F TTC 

EN CADEAU, AU CHOIX : 

1 Programme Traitement de Texte FRANCE TEXTE 

ou 1 Tableaur Electronique UNICALC 16 

LES PERIPHERIQUES : 

Moniteur Couleur CRT 50 3 490 F H.T. 

Imprimantes : 

80 col. 100 cps 4 390 F H.T. 

132 col. 125 cps 8 990 F H.T. 

Mach. Ecr. Interf. 20 cps 4 390 F H.T. 




ON SE DEPECHE... CELA NE DURERA QUE LE MOIS D'AVRIL... SI IL Y EN A ASSEZ ! 



VTR Micro Nord 

54, Rue Ramey — 75018 PARIS 
Tel. : 252.87.97 



VTR Micro Sud 

105, Boulevard Jourdan — 75014 PARIS 
Tel. : 545.38.96 
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'la page pedagogique 



_^_ la page pedago— 

Les images et symboles historiques se retiennent plus facilement que les dates. 
Therese EVEILLEAU vous propose ici de le verifier. 



Mode demploi : 

Lexecution du sous-programme 22000 (definition des caracteres 

graphiques en ASSEMBLEUR) est assez long. Vous aurez intent 

apres un premier lancement, a generer un fichier binaire de la facon 

suivante : 

Lancez le programme. Apres quelques instants, une petite musique 

vous signale la fin dexecution du sous- programme machine. Sau- 

vez en binaice. a la suite du programme principal, les caracteres 

traphiques par : 
AVEM "ROI". &HD02F + 79 + 32 * 29. I HD0O0 remplacez la 
ligne 222 par LOADM "ROI" : EXEC & HD000 
Les possesseurs de T07 + 16K devront changer & HDOOO par & 
HAFC8 et & HD02 par & HAFF7. 

Si vous desirez effectuer cette operation en priority, pensez 
avant de faire toumer le sous -programme 22000. a delinir le type de 
variables par : DEFINT I, K. M : DEFSTR R : MC - 30 et le faire 
executer par EXEC & HDOOO (ou & HAFCB pour T07 + 16 K). 

Ce programme utilise le stylo optique et son but est simple : 
Les noms de 5 personnages celebres apparaissent en face de sym- 
boles. II suffit de pointer le nom des 2 personnages que Ion veut 
exchanger. Lorsquon estime avoir bien place les personnages. poin- 
ter la case JEU. Les fenetres du village en haul a gauche s'allume- 
ront en fonction du nombre de points. Chaque joueur devra replacer 
2 series de 5 personnages. 

A chaque tour, le record est affiche et les lumieres du village s'etei- 
gnent. En fin de partie. tous les scores sont aftiches et une nouvelle 

partie est proposee. 




ROIS ET SYMBOLES sur TO 7, TO 7 70. 



m ADAPTATION T07*10K ■ 

1 38 CLEAR35S,tHAFC8 

222 C0SUB228881EXEC iHAFCB 

£2630 POKE »HAFC8*I,KK 

2203B DATA 34 . 76 . CE . ftr . F7, FF . 60 . 2D, C£ . >.r 
. DE,£6,C8.C1,84, 27, IB, BD, E8, 83, 28, F5, IB, 
58, IB, 43, 1 4. 2A.28. 34, 68. 2E. 43, 76,65,69,6 
C . 6C , 65, 6 1 , 73, 28, 2A, 84, 33, 76, 39 

2288S POKE t,HAFF7*I,KK 



'Poll ** SJBtOleS. 



106 ■ 

110 ' 

115 CONSOLEO.24.0,O:CLS 

130 CLEhR356.4HD0GO 

140 DEFINTI-L.N.P.C 

150 DEFSTRR.S.H.F 

1?? NC-38 

1 60 DinSBt5>.S<NC*.RfNC>.»0I<3*.RDESi5>. 

P'NO.CFDtNC:>.CF0<NC>,N<9>,PT<9> 

1-0 P«e:K"0:nr«'0 /■'«r , :nni 1 >■ "•.*>«* 

:~z F»-% ■;- 

lit) GOSUB £240 

• arquegr aw N. i 



i?e ' 

200 SCPEEN4,0.0:ClS:CONSOLE21.24 
286 ; 

£18 'Ini tiali**tton ecran 

2:? K»£tG"«««L*7tiLCN6«79iLAf*C»7il 

=TOIRE"(G0SUB 30080 
2I£ C-142: t «94:L0\i=15 



EN-iGOSUE 3O80 

SIB C-I1«!L=: 18: L0NG=47(C1-- IMAGES" (GOSUB 

tlo GOSUB 10000 'CHEvnt 

Hi LCCATEH^c.O^PINT-PhTIENCE S.V.P-I 

L0C-TE1I.22.6 

2;2 GOiUB22080:E-XC IHD0B0 

=15 GOSUB 28890 'VILLAGE 

228 COLOP 5,0 

278 w 0ChTE 11,£c.o:PPINT"» Th. Evti 11 «»u 

264 GOSUB 2IO00 

270 RESTORE 

400 FOP 1»1 TO NCJPEHt' P' I >,CFC" I >.CF0i I 

iNEXT 1 
410 D*"h EIFFEL. -.y.LE GnULLE. 7- 0. JE-NNE 

: 'Hiicr.e.CHftRLES 1.3. i.henp: iv.6.o.c 
_cvis.4.3.polanc-. j.i.£ir>EPOT,7,0.LOu:; x 
vi.i.e 

415 [.nT- PuSTEUP. 1.-.CMmPLE1«GNE. 4.7,101' 

IS I. 7.0. NAPOLEON :il. 6. O.LOUIS r'V.-.l. 

MhPOlEON Itr, 5,0. [— iOBEPT.-'.e. LOUIS PHIL 

IFPE.4,3 

420 DATh lOUIS ,:v.4.3.CM CORDaY. 1 . 0. .'AC 

BVES C0EUP.4.3.F0Uyl'ET.2.1.ST LOUIS. 7.£. 

i-'JUIS :<III.6.8.GAHBETTA.6.0.PiEPRE L'ERM 

:TE.3.0. JuCQULi Ch^TIER. 6. O.FRANCOIS ler 

.".0. J0FFPE.7. I.VATF1 . 4. 7. LAFAYETTE . £.3 

500 FOR 1-1 TO NC-7. 

510 S'l >«GR«'.4«I*4 '*GR»i4»I*5>*CHR*' 10> + 

CHRf'8"'CHR«^8>*GR*'4»I»6>*GR<i4iI*7 1 



520 I 



I 



550 S'.30>-CHR«(27>*"T"+GR*<124)*CHR*i27> 
.'►.".CHP«(27>*-H-+GR«(123)*CHR<(10>»CHR» 

8>*CHR«(8'*GR*Ci25>*GR«<I25) 
998 * 

1000 'Ecran preparation, 

1081 """"""•'"•" 

1010 BOxr<l0,9)-<29,17)" M ,4,8 

1813 FOR L-l TO 3 

1020 B0XF(63, 7*32«<L-l))-tlB3,39*32»<L- 

!>>,L+I 

1030 B0X<63,7.32P<:L-t))-<I84,39*32«<L-l> 

>»7 

1048 80X<194,7*32«(L-I>)-<223, 37.32«<L-1 

>).7 

1838 NEXT L 

1855 P0XF<248,0>-<319,16),6 

1056 LOCATE32,'I,0:f.TTRBl,HCOLOR 4,6:PRI 

NT- JEU" J tCOLOR4,eiATTRB6,0 

1070 CLS!SCREEN4,0:CLS 

1073 PRINTiPRINT- No»bre de joueurs 

'0<n<10J f ■; 
1078 N«-lMKEY«tN-VAHNfl:IF N-OTHEN X-RN 
DtG0T01878 ELSE PRIMTK 
1090 CLS 

1298 ' 

1299 ',,,. 
138B 'Jcu, 
1381 ""' 

1305 PRECORO— lUEU=8!KR-8 

1310 FOR J"I TO N 

1313 CLS 

1313 PT(J>«6 

1310 GOSUB 2248 

1328 L0CATE8,22,0 

1338 PRINT- Nom dy" t STR«< J>; nn- -' J > 

1340 LOCATE 4,23,0!LINEINPUT- -,HU> 

1342 PT»8iG0SUB 20478 'FENETRES FERMEES. 

1344 FOR KN-1T0 LENtflt J>>IX-RN0: NEXT KN 

1346 M> J>-LEFT«(rUJi,8> 

1358 CLS 

1360 LOCATE8,22,0iftTTRBl,OtPRlNmv J'lATT 

PP0.0 

;-65 ■ 

1370 FOR JJ-1 TO £ 

1390 GOSUB 2200 "Tirag. de 5 rois. 

140B GOSUB 2300 "Chancer les r«n. 

1410 GOSUB 2500 -HfficMge; nous . 

1413 COLOR 4,8 

1463 GOSUB 2000 *Rech ; : ■■-i 

1478 IF JEU-1 THEN GOSUB 4O80:PT!PT(J 

■:G0SUB 20470SCOTO 1510 

1471 Ll-L 

J475 GOSUB 2000 

1488 IF JEU-1 THEN GOSUB 4000tPT-PT(J 

sCOSUB 28478IG0T0 1510 
:490 L2»L 
i495 C0SU8 3000 
1500 GOTO 1465 
1510 NEXT j.i 
1538 • 

:540 *e0>T-;8.78.'-«?5.:99),e 
1545 COLOP 1,0 
■546 GOSUB33C0 
1550 LOCftTEl. :6.0:PPINT"R«cord- 

1555 L0CATE2. 17.8tC0L0P . . 1 iPPINTPPECORD 
■COLOR. t I 

1556 LOCATE 1.18,8 

15SS IF PREC0R&A-PPECOP.0 AND kRofcfi THEN 
: PINT"«9»1« -:GOT0 1570 
1560 :f KR' ka THEN PPINT"detenu" 
1570 L0CATE1.19.0-.PPINT- par - 
1580 L-LEN^LEFTf if1 t -fR),7ij (LOCATE 0,20,0 
:?K!KTSPC -7-L ■ £ ■ : LEFTf<;H..KR- . ?'■: SPC. 7~ 
POS* 

1630 GOSUB 21000 
li« COLOR 4 
:=50 NEXT J 
1:55 CLSiCOLOB 4:G0SUB 3100 

1658 'FIN 

1659 • 

I»66 LOCATE 9.0.8(FPINT"Autr« p4^tl«^- 
1-.70 P-INPUTH1' 

:-:~: locatei. I6.o:ppint" 



lt72 B0Xf'7,0>-(£9,16>" ", 4,0iBOXF'248,0 
-<319.16),0(BOXFC0, 17>-(39,24)' -.4,0 
1680 IF R*-o" OR R-"0- THEN 1000 
1690 C-80iL»24iK-3iLONG-13iH»"AU-i GOSUB 
30088 

1693 LONG-7 
!"00 FOR JJ-1 TO 6 
1-10 N-HIC.*CREV0IR".JJ»1> 
:"20 C-70»JJ«ieiL-4B*16»JJlG0SUB 30000 
1~30 NEXT JJ 

I~4Q C-18(L-100lKB4(LONG*13(LAftG-LONG(H» 
;■ f ■-•COSUB 30008 
1768 LOCATES, 0,8 
1770 CONSOLES, 24. 0,0 

2 688 ' 

2801 ',,,,,,,,.,,,,., 
2002 'Crayon optique. 
2883 •'""""""" 

2005 INPUTPENCL 

2010 IF C>248 AND L<16 THEN JEU-1 :PLAY- 
H0O4T5L24DOniSISO"(GOTO 2058 ELSE JEU =•' 
2030 IF C--1 OR L— 1 OR C<63 OR C>183 OR 
L<? OP L>167 THEN PLAY-A805T4L24SISISI' 
J GOTO £085 
£040 L-<L-7)832 *1 
2045 PLAY"T304L1201I>0SILASIRE 
2030 RETURN 
2200 ' 
2281 ',,.,,,,.,,,,,. 

2202 'Tiragc 5 noaf. 

2203 ',.,.,,,.,,,,,, 
2218 FOR 1-1 TO 5 

2220 K«INT<RND»NC*1XIF P<K>-1 THEN 222 

ELSE P<K)-liROI(]>"R<K)iSB<I)-S«K)tcec 

I>»CFD«K)(CFa>-CFO<K> 

2230 NEXT I . 

2240 FOR I-l TO NC 

2250 P(I>"0 

2260 NEXT I 

2270 RETURN 

2300 ' 

2301 ',.,.,,.,,, f,,,.,, 

2302 'Ron in defordre, 

2710 FOR I-l TO 3 

2320 K = INTlRND»5*l ■: IF P>K)-1 THEN 2328 

ELSE RDES(I >«R0I < K >! PtlO-1 
2330 NEXT I 
2348 GOSUB 2240 
2750 RETURN 



conn'Mt points. 



2502 ' 
2503 



mbole 



I FOR 1=1 TO 5 
2530 LOCATES. 2 + 4*' J-l • 
2548 COLOR0,I*1 
2«8 PRINTUSINGFJPOES' I > 
2560 L0C»TE25,2+4»<I-1> 

2565 BOXFi I94,7*32«<I-l)'-'223.3-*72«. I 
-I ' •,CD<1> 

2570 COLOR CF(I>#CD<I> 
2530 PRINTSB'. 1> 
2590 NEXTI 
2600 RETURN 

3000 ' 

3001 ',,,.,..,,,,,. 
3082 'Echange rois. 
3003 "*" 

3018 RES-POES'Ll ' ! PtESa r>-RDES' L2 .iPOES 

L2/-RES 
3020 L0CATE8,2+4«IL1-1 ' : COLOR©. LI -1 : "IN 
T'JS1NGF:RPES<L1 i 

3030 L0CATE8,2»44i.L2-l > : COlOPO. L2* 1 : PR IN 
TUSINGF;RDES'L£'' 
7040 RETURN 
3500 ' 

3504 *,...,, 

3505 "Recherche record. 

3506 ',.,,,,.,.,.,..,,, 
3520 PPECORDA-PPECORfiKA-fP 
3330 FOP I-l TO J 

3540 IF PREC0RD--PT1I ■ THEN PRECORO-RT- 



(R-I 
550 NEXT I 



4082 'V«rlfic»tion 

4083 •"">•'••••• 
4015 FOR I-l TO 3 

4020 IF RDES<I>«ROKI> THEN PT<J)-PT.Jj 

*1 

4048 NEXT I 

4060 RETURN 

4498 ' 

3099 ',,,,,,,,,,..,,,,,>,,,,, 

3188 'Africh«>e final point*, 

3101 '""""""•""••"•• 

3183 PRtWT 

3110 FOR J-l TO N 

3113 L-4B8N 

5120 PRINTLEFT».'B(J>,L-l>;SPC'L-LEN(LEFT 

»<H<J>»L-I)>)I 

5130 NEXT J 

5135 LOCATES, 23,0 

5140 FOR J-l TO N 

5150 COLOR,, 1 ( PR INTPTi J- i (COLOR,, is PRINT 

SPCiL-3>J 

5160 NEXT J 

5170 RETURN 

9999 '„„„„ 

10B8B 'CHEVAL, 

16801 """"' 

10003 RESTORE 10040 

10818 FOR I-l TO 2HREA0 C1.L1.C2.L2 

10028 B0XF<C1,L1>-<C2,L2),4 

10030 NEXT I 

10048 DATA 284, 3B, 291. 48. 282. 40. 284,41, 2 

31,41,294,44 ,386,60,307,59 

10058 DATA 288,44, 294. 47, £81, 47, 293, 49. 2 

82. 49, 294, 31, 279, 51, 297, 35, 275, 56, 298, 59 

,274, 59. 297, 62. 276. .-2. 294. 65, 279, 65. 296. 

66, 279, 66, 290, 68, 28 1.68. 289. 70. 290, 6~. 29 

6,68 

18860 DATA 293.68.299.70,386,61,309,62.3 

12.60,314,63,304,63,314,66.300,66,314,69 

,299,69,316,70 

10070 FOR I-l T0155(READC!.C£,Li:LINE<:Cl 

,Ll>-(C2,Ll>,4iNEXT I 

10080 DATA 278,315.70,276.316.71,269.317 

.72, 265, 316, 73, 263, 31 5. 74, £6 1.31 5. 75, £59 

.31 4, 76, £57, 313. 77. 255, 260. 78. 263. 31 3. 78 

.252,259,79,262,313.79,252,238,00.263.31 

10698 &ATA 262,313,81,262.313.82,261,313 

.53,261,313,84,260.313,85.261.313.86.261 

. 312,87, 261, 312, 88. 262. 386. 89.262, 386. 90 

.309,312,89,318,312,90,262.306.91 

10180 DATA 262,307.92.262.307.93,262.307 

. 94 . 263, 307, 93, 263, 271 , 96. 273. 306. 96. £64 

.270,97.274,306,97 

10110 DATA 264,270.98.274.306.98,264,270 

.99,275.305.99 

10120 DATA 264,270.188,273.386.180.265.2 

70.101.276.386. 101.263.269. 102.276.303.1 
02,266.269, 103,276.384, 103 

10138 DATA £66.269. 1B4. 276. 384.164.265,2 

69, IBS, 275, 384. 105.266.269,186.274,280. 1 

06,204,304,186 

10140 DftTA266,269.107,£73.£79. 1OT.2O5.30 

3. 107. £66, 269, 108.274.278,108.286.303. 10 

9.267.269.109.274.278, 109.287.294. 109.29 

6-303, 109 

10150 DATA 267.269.110.274.278,110.288,2 

M. 110,297,302, 110.267.269. 1 II. £74.277,1 

11.289.294.111.297.302. 111.267.269.112.2 
"5.278,112,289,294. 112,297,302,112 
10160 DATA 266,269.113.275.279.113.289,2 
54.113.298.302.113,265.269.114.275.280, 1 
14.298.294.114,299.302,114.266,269.115.2 
76.280. 115,290,294. 1 15.299. 382. 1 15.267.2 
i*. 116.277,281. 116,291.294, 115.299.382.1 
15 

10170 DATA 267, 265. 116, 277, £81, 116,291,2 
94.116,299.302.116.267,269. 117.278-281,1 
17.291,294, 117,299-302.117,267,269. 113,2 
"■ = .280. 118,291,294, 118.299.382. 118 

ASUIVRE... 
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Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Depuis plusieurs semaines, 
vous profilez dun cours d'as- 
sembleur decompose en deux 
parties essentielles (I'une Iheori- 
que. Pautre pratique). 

Cette semaine !e 6502 de 
I'ORIC en prend plein la me- 
moire. La semaine prochaine ce 
sera le tour du 6502 d'APPLE. 

Jusqu'a present, les cours prati- 
ques suivants ont ete publies: 

N° 55 -» ZX 81 

N° 56 -> ZX 81 

N° 57 — ORIC 1. ATMOS 

N" 58 — APPLE 



N a 59- 
N°60- 
N°61 - 
N-62- 

N°63- 
N°64 - 
N°65- 
N°66- 
N°67- 
N°68- 
N°69- 
N°70- 
N°71 - 
N°72- 
N°73- 
N°74- 
N°75- 
N"76- 



T07. T07 70 

COMMODORE 64 

ZX81 

ORIC 1, ATMOS 

APPLE 

T07. T07 70 

COMMODORE 64 

ZX81 

ORIC 1. ATMOS 

APPLE 

T07, T07 70 

COMMODORE 64 

ZX81 

ORIC 1, ATMOS 

APPLE 

T07, T07 70 

COMMODORE 64 

ZX81 



Ne croyez pas que la techni- 
que des pages de 1 Ko soit la 
seule existante. En fait seuls 
des micro-ordinateurs antiques 
(a I'echelle informatique) utilisent 
ce codage de chaque page sur 
10 bits et ce pour des raisons 
historiques : les premiers circuits 
integres de memorisation 
avaienl une capacite de 1024 
octets. La technique de codage 
sur six bits permettait au micro- 
processeuf de selectionner 
parmi les circuits de memorisa- 
tion celui qui etait concerne. 
laissant les dix bits restant se 
charger de la recherche dans le 
circuit. Si j'ai choisi cet exemple, 
c'est pour vous permettre de 
vous rendre compte que la no- 
tion d'octet n'est pas un absolu. 
Tout comme I'atome est forme 
de sous-particules, l'octet est 
forme de bits que Ton peul ma- 
nipuler soit separement soit par 
blocs. Ainsi la majorite des 
micro-ordinateurs huit bits gere. 
sans manipulation bit a bit, des 
pages de 256 octets. Un Oric, 
un Apple ou un Commodore ont 
64 Ko de memoire divises en 
256 pages de 256 octets. 

Vous devez pouvoir sans aucun 
probleme expliquer pourquoi Ton 
dispose d'autant de pages me- 
moire. Nous avons le registre 
d'adresse qui fonctionne sur 
seize bits. L'octet de poids fort 
contiendra te codage de la page 
et celui de poids (aible le co- 
dage de I'adresse dans la page 
et 2 I 8 = 256, miraculeux mais 
logique ! 

Je viens d'evoquer plus haut le 
terme de registre d'adresse. 
Cette appellation s'applique ex- 
clusivement au contenant, le 
contenu etant I'adresse abso- 
lue (I'adresse absolue contient 
le code de la page et I'adresse 
dans cette page). Nous retrou- 
vons ici la distinclion que nous 
avions evoquee a propos de 
case memoire et d'information. 
La preuve en est done faite (s'il 
en etait besoin) que Pinformati- 
que est une immense construc- 
tion basee sur des connaissan- 
ces simples et repetitives. 

Mais ne croyez pas pour autant 

vous en sortir a si bon compte ! 
Tout n'est pas encore acquis, et 
bien des domaines de la 
conception des ordinateurs et de 
leur utilisation optimum restent 
encore dans ("ombre. 

Par exemple, nous savons ac- 
tuellement que la memoire est 
divisee en pages (cette partition 
se repete a deux niveaux : me- 
moire en pages et page en 
mots). Mais il va falloir au micro- 
processeur un registre pour lui 
indiquer a quel endroit il se 
trouve dans la memoire. Ce re- 
gistre se nomme Program 
Counter en anglais (la notation 
courante en est PC) ou Comp- 
teur Ordinal dans noire langue 
maternelle. Comme pour beau- 
coup d'appellations, je conserve- 
ral la notation anglaise lorsque 
je me refererai au compteur or- 
dinal, soit : PC. 



Le r6le et le fonctionnement de 
ce registre seront plus simples a 
etudier a I'aide de schemas, ce 
que nous allons faire mainte- 
nant. Lors du deroulement dun 
programme, deux registres (au 
minimum) seront sollicites : I'un 
qui devra memoriser I'adresse 
de la prochaine instruction a 
executer, le second qui devra 
pointer la zone des donnees (il 
est rare en erfet qu'un pro- 
gramme ne fasse pas appel a 
un ensemble de donnees, pen- 
sez aux DATAS du basic). Re- 
presentons ces deux registres, 
ainsi que la memoire. 

LE PC ET LA MEMOIRE 



Vous noterez que les instruc- 
tions d'un programme peuvent 
etre tout aussi bien i n condition - 
nelles (operations loglques) que 
conditionnelles (tests). Le 
contenu du PC est automatique- 
ment increments en fonction de 
la nature de ('instruction a exe- 
cuter. Si I'instruction est incondi- 
tionnelle, il devra etre augmente 
de un, deux ou trois octets (sui- 
vant le nombre d'octets de I'ins- 
truction en cours de traitement). 
Dans le cas d'une instruction 
conditionnelle, Poperation a ef- 
fectuer sur I'adresse absolue 
contenue dans le PC sera indi- 
quee par le ou les deux demiers 
octets de I'instruction en cours 
d'execution. Mais regardez plu- 
t6t le schema suivant, tout ce 
qui precede y est resume. 

ALGORITHME DE L'UNITE 
CENTRALE 




Un probleme majeur reste a re- 
soudre au niveau des manipula- 
tions d'adresse dans le PC. En 
erfet, comment Pordinateur 
pourra-t-il reconnaitre (dans les 
instructions inconditionnelles) les 
instructions qui necessitent une 
incrementation de un octet plutot 
que deux ou trois octets. Cette 
reconnaissance est propre a 
chaque micro-processeur, mais 
un principe general peut etre de- 
gage. L'ensemble des instruc- 
tions disponibles pour ce micro- 
processeur doivent etre codees 
sur un octet (s'il s'agit d'un hurt 
bits). Nous aurons done deux 
cent cinquante six codes opera- 
tion, abreges en COP. Lors de 
la conception du micro-proces- 
seur, on cSblera celui-ci de ma- 
niere a ce qu'il reconnaisse au- 
tomatiquement les COP sans 
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adresse de donnde ou sans 
donnde de ceux qui en deman- 
ded. Nous pouvons representor 
schematiquement une instruc- 
tion machine sous la forme sui- 
vante : 

INSTRUCTION GENERALE 



Compte tenu de ce que nous 
avons appris jusqu'a. present, 
nous allons pouvoir raccorder 
des elements vus au debut de 
celui-ci : pour effectuer les ope- 
rations, la majorite des micro- 
processeurs utilisent I'accumula- 
teur (A). Seules quelques ins- 
tructions ne touchent pas a A. 
La sequence realisee par le 
micro-processeur s'execute 

done sous la forme suivante : 

A < ~ (A) "operation" operande 

La notation (A) signifie que c'est 
le contenu de I'accumulateur 
qui est concerne par Poperation 
et non pas ie contenant. 

Cette operation aura pour erfet 
de stocker le resultat dans I'ac- 
cumulateur d'une part et de po- 
sitionner certains bits du regis- 
tre condltionnel d'autre part. 
Pour memoire, je vous rappelle 
brievement les differents roles 
que remplit le registre condition- 
nel. Chacun des bits de ce re- 
gistre permet d'obtenir une infor- 
mation sur Poperation que !'on 
vient de realiser dans I'accumu- 
lateur. Ne vous emballez pas de 
trop : chaque instruction n'influe 
pas forcement sur l'ensemble 
des bits du registre conditionnel, 
mais plutdt sur un deux ou trois 
de ses bits quand cette instruc- 
tion affecte effectivement le re- 
gistre d'etat. Les differentes indi- 
cations que Pon peut obtenir sur 
le resultat sont : son signe, ('in- 
dication d'une erreur possible 
sur le signe (depassement de 
capacite : Overflow), depasse- 
ment de capacite des huit bits 
(Carry), resultat nul (Zero), cal- 
culs en DCB, interruptions auto- 
risees ou pas. Le registre condi- 
tionnel est unique dans un 
ordinateur. A titre indicatif, vous 
pouvez retenir que son fonction- 
nement est base sur la theorie 
du complement a deux. 

Nous allons decomposer, tou- 
jours aussi schematiquement 
que d'habitude, une utilisation 
possible du registre conditionnel. 
Regardez, tout d'abord sous 
forme d'organigramme (ou ordi- 
nogramme, suivant la litterature 
que vous pouvez consulter), le 
programme que nous realisons. 

TEST SUR UN BIT DU REGIS- 
TRE CONDITIONNEL 




INTRO (L'INTRO) 

II y a eu 20 ans aujourd'hui, 

Sergent Basic demanda a sa 

bande de jouer 

Et malgre le style un peu ancien 

II etait sur de vous arracher un 

sourire 

Aujourd'hui, void ce que vous 

avez deja 

Entendu cent fois ces dernieres 

annees 

Presente par le seul. ("unique : 

Billy Langage Machine I 

DEVELOPPEMENT 
(LE NOEUD) 

Nous continuons cette se- 
maine avec les drapeaux. El 
comme les drapeaux seuls 
sont un peu arides, nous 
allons loucher un peu du c6te 
des additions et des soustrac- 
tions sur 16 bifs. Et puis aussi 
un petit peu du cote de Padres- 
sage post-indexe. Comme ca, 
vous serez comptetement 
paumes, je devrai tout reex- 
pliquer et je suis sur de ne pas 
etre au chfimage pendant au 
moins 6 mois. Non mais. 
Comme la derniere fois, je vais 
commenter un listing. Deux, en 
fait, puisque vous devrez taper 
le premier si vous disposez de 
I'assembleur Monams ou le se- 
cond dans le cas contraire. 



LISTING 1 




18 " 


ORG $1000 


20 " 


LDB#*HB 


38 " 


STB *65 


48 " 


LDBKBB 


58 " 


STB S66 


68 " 


L0fl#S8 


?» " 


TRY 


100 "STHRT: 


LL'H#*,'E 


118 " 


STfi<»S5),Y 


128 " 


JSR BD(j 


138 " 


IKY 


148 " 


CPY#*1R 


150 " 


BHE STHRT 


160 " 


JMP RETOUR 


170 "FlDD; 


CLC 


130 " 


LDH#*28 


190 " 


RDC *bb 


200 " 


STfl «65 


210 " 


LDH(W0 


220 " 


HOC *bt 


238 " 


bTR S66 


248 " 


RTS 


250 "RETOUR 


'UEV 


260 " 


JSR S0US1 


270 " 


LDH»*28 


238 " 


STB< «65 ) , V 


298 " 


CPY»»0 


308 " 


BNE RETOUR 


318 " 


RTS 


320 "S0UST- 


SEC 


330 " 


LDB *63 


340 " 


SBC»*ia 


350 " 


STB *65 


360 " 


LDB *66 


370 " 


SBC*S8 


380 " 


STB *tb 


398 " 


RTS 


LISTING 2 





10 FORN«ltie00TCHIie42 REflCiR* fl 
«VflL( "»"*H* > ■ P0KEH, R i NEXT 

2fl FORN-lTO3e0Cl=ILLttl000 l«XT 
i END 

108 DFlTBft9,«Fl,&5.b5.M3.6a-H3. 
ttti.MS.e.flli.^.^E.Sl.lsS.^e, 1H. 1 
0. C8.C0. lft. D0 

110 DftTRF4,4C. 26-10. IS. K3.£is. 
65 . 65 . 05 . 65 . A3 . . faS . >i£ , i>5 , €.6 

i2e DflTftba.se.^e.js.ia.fts.^e. 

31.65.C0.0.[)0.F4,,3S.H5,65.E9. 
28.85.65.ft5.66 
130 DHTRE9,8.85.6e.6Q 



Pour le premier, apres lavoir as- 
semble, tapez en mode direct ; 

FOR N= 1 TO 300 :CALL # 
1000:NEXT 

Et vous obtiendrez un superbe 
dessin anime qui ferait palir de 
rage Walt Disney lui-meme. 
Bon, serieux. Prenons les ins- 
tructions une a une. La pre- 
miere, vous le savez. est une 



pseudo-instruction : elle ne sert 
qu'a indiquer au programme qui 
assemble Pendroit ou il devra 
commencer Passemblage. 
Les cinq suivantes (on se depe- 
che). vous les comprenez : on 
charge I'accumulateur (A), on 
place son contenu dans une 
case-memoire selectionnee, 

bref. Passons a la suivante. 
Vous ne la connaissez pas en- 
core, mais elle est tres simple : 
TAY signifie "Transfere A dans 
Y". Comme son nom Pindique, le 
contenu de A est place dans le 
registre Y sans modification. Le 
contenu precedent de Y est 
perdu. A noter ; il existe une ins- 
truction notee "TAX" qui trans- 
fere le contenu de A dans X 
(etonnant, non ?). Et pendant 
que j'y suis, il y a aussi "TYA" et 
"TXA" qui transferent respective- 
ment le contenu de Y et de X 
dans A. Vous avez compris ? Y 
a interet, passke sinon c'est la 
baffe, comme dirait Clou. 
Nous passons rapidement sur 
LDA #$7E, et nous arrivons a 
I'une des instructions les plus 
compliquees qui soient. 
Arrives la, si nous pouvions in- 
tervenir en basic dans le pro- 
gramme et que nous fassions : 
PRINT HEX$(DEEK(# 65)) 
Nous obtiendrions la valeur # 
88AA, puisque c'est ce que 
nous y avons place entre les 
lignes 20 et 50. Y est egal a 
zero, puisqu'en ligne 70 nous y 
avons tranfere le contenu de A 
precedemment mis a zero. 
Alors, voict la traduction litterale 
de cette instruction : place le 
contenu de I'accumulateur dans 
la case-memoire designee par 
$65 PLUS le contenu de Y.Un 
exemple, pour simplifier : 
Si en 65 et 66 nous avons 
#C000. en A 32 et en Y 12 
(toutes valeurs en hexa). la ma- 
chine placerait en # C000 + 12 
(le contenu de Y) la valeur 32. 
Ok ? Ca s'appelle "adressage 
post-indexe" en programmation 
et "adressage vicelard" en fran- 
<;ais. Si vous avez compris, arre- 
tez de lire, vous etes meilleur 
que moi. Les a u tres. restez, 
c'est pas fini. 

JSR ADD va tout naturellement 
nous amener au sous-pro- 
gramme ADD. Examinons-le de 
ce pas : 

CLC affecte un drapeau (j'avais 
prevenu) nomme "Carry" en an- 
glais et "Retenue" en francais. 
En fait, ca veut dire "CLear 
Carry", c'est a dire "Met la rete- 
nue a zero". La Carry (car c'est 
comme ca qu'on la nomme 
entre nous) est un des bits de 
cet octet dont je vous parlais la 
derniere fois que nous nous 
sommes vus. Comme le dra- 
peau Z, il existe des instructions 
pour le tester. Mais nous n'en 
sommes pas la, laissons ca de 
cote pour Pinstant. 
Nous nettoyons done la carry 
sans commentaires. puis nous 
chargeons I'accumulateur avec 
la valeur absolue # 28. Instruc- 
tion suivante, ADC : "ADdition 
avec Carry", Concretement, on 
additionne la valeur de I'accu- 
mulateur au contenu de la case- 
memoire indiquee, en Poccu- 
rence $ 65. Le resultat sera 
place dans I'accumulateur, j'en 
vois qui decrochenl, je reprends. 
Admettons que I'accumulateur 
contienne 20 (toujours en hexa) 
et que S 65 contienne F0. On 
additionne les deux, resultat : 
# H0.Or.un octet ne peut conte- 
nd un nombre superieur a FF, 
done, probleme. Nous trouve- 
rons alors dans I'accumulateur 
le nombre # 10, et le drapeau 
de retenue sera automatique- 
ment mis a un pour indiquer que 
I'addition a depasse la capacite 
d'un seul octet. 

Continuons notre periple ; nous 
chargeons I'accumulateur avec 
zero [ligne 210) et nous I'addi- 
tionnons avec le contenu de 
£66. A quoi bon ajouter zero a 



quelque chose, me direz-vous ? 
Parce que justement. il y a la 
Carry, vous repondrais-je. Si elle 
a ete mise a un par I'addition 
precedente, elle se reporte sur 
celle-ci, et ajoute 1 au resultat. 
Pour etre vraiment gentil, je vais 
vous donner un exemple en de- 
cimal, en francais et en compre- 
hensible. 

J'ai A= 30. $ 65- 230. $ 66= 
100 et pas de retenue. J'addi- 
tionne 30 et 230. resuitat : 260. 
Je jette un coup d'oeil a la rete- 
nue, elle est a zero, done je 
n'en tiens pas compte. Le resul- 
tat est trop grand pour etre 
range dans un octet, alors j'en- 
leve 256, je garde le reste dans 
A (done 4) et je mets la retenue 
a un. Je place le contenu de A 
dans $ 65, je decide que A= 
et je continue. J'additionne et 
100 (le contenu de S 66), resul- 
tat : 100. Et la. je m'apercois 
(sans surprise, car tout a ete re- 
pete deux semaines a Pavance) 
que la retenue est a un. Alors je 
Padditionne au resultat, j'obtiens 
dans A un superbe 101 que je 
place en $ 66. Essayez en 
basic: d'abord DOKE # 65, # 
64E6. puis DOKE # 65,DEEK(# 
65)+ 40. Si en faisant PRINT 
DEEK{# 65) vous n'obtenez pas 
# 6504, je veux bien etre 
pendu. 

Le CLC au debut du sous-pro- 
gramme "ADD" est necessaire : 
en erfet, si par une operation 
precedente vous avez mis par 
inadvertance la retenue a un, 
vous aurez un resultat fausse. 
Bon... Retour au deroulement 
normal du programme. 
Ah non. pas tout de suite, j'ai 
oublie quelque chose. On peut 
tester Petal de cette retenue. 
Comment ? 

Avec des instructions de bran- 
chement, tout comme le dra- 
peau Z. Je vais meme vous indi- 
quer une autre facon de faire 
une addition, moins orthodoxe 
mais tout aussi efficace. 
On commence pareil : CLC. puis 
LDA n'importe quoi, ADC n'im- 
porte quoi et STA n'importe ou. 
Si les deux n'importe quoi de- 
passent 255, la retenue sera 
mise a un. Done, je vais utiliser 
une instruction que je sors mira- 
culeusement de ma manche ; 
BCC, qui veut dire "Branch if 
Carry Clear". Elle s'utilise sur le 
meme modele que BEQ ou BNE 
que nous avons vus la derniere 
fois, e'est-a-dire que si (dans le 
cas de BCC) la carry est a zero 
(done clear), le programme se 
branchera a I'adresse specifiee. 
Sinon, il sautera I'instruction et 
passera a la suivante. Le pro- 
gramme sera alors du type ; 

LDA # $ 34 
ADC S 65 
STA S 65 
BCC SUITE 

INC $ 66 
SUITE :... 

Si la retenue n'est pas a un, je 
saute a la suite du programme, 
puisqu'il n'y a pas eu de depas- 
sement de capacite. Sinon, j'in- 
cremente (avec INC, nous 
Pavons vu) l'octet suivant. 
II existe bien sur I'instruction 
contraire : BCS qui signifie 
"Branch if Carry Set". Si la rete- 
nue est a un, le programme se 
branche a I'adresse specifiee. 
ou saute I'instruction dans le cas 
contraire. 

Voila. Je m'apercois que je n'ai 
pas la place de vous expliquer 
la soustraction cette semaine, 
mais je vais profiler du peu qui 
me reste pour expliquer CPY 
(ComPare Y) : le registre Y est 
compare a la valeur qui suit. Le 
resuitat est exactement le meme 
que pour CMP (voir dernier 
cours) : il positionne le drapeau 
Z en fonction de la confirmation 
ou de I'infirmation de Pegalite. II 
existe la meme instruction pour 
X : CPX (Compare X). 
Bye. 
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DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous I 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendons pas que cette liste est complete et definitive et il est evident que nous y rajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes quijouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs qui ne peu- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a faire baisser les tarifs des fournisseurs pour atteindre I'objectifque nous 
nous sommes fixe: ramener les prix a une plus juste valeur ! 

Les classements sont faits en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c est a vous dejuger de I'opportunite de la depense. N'oubliez quand memepas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut tigurer dans cette page ! 
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En cette annee 1943, votre gouvernement vous charge 
dune delicate mission. Vous devez empecher le bom- 
bardement du pont "Spec". 



SPECTRUM 



Mode demploi; dans le programme. 
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12 FOR 1=1 TO 7 PAPER 1 PRIN 
T mT it*. 6, a*. NEXT i 

14 PLOT 40,15. DRflU 134. a PLO 
T 47.24 CRAU B.lll. PLOT 224,16 

DRAU 0, 127 

15 PLOT 39.144: DRfiU 154.0 

16 PLOT 47,2? DPAU 170,0 P(_G 
T 47,155 DRAU 170,0. PLOT 39,16 

CRAU 0,127: PLOT 217,24 DRAg 
0, 111 

IS INK 0. PLOT 103,24 DRRU 26 
.56 PLOT 160,24 DRRg -26,36 

20 BRIGHT 1. INK 4. PLOT 48.60 
ORAg 167,0 

21 INK 4: FOR 1-1 TO 46 PLOT 
48,80- l ORRg 60-1*1.3,0. NEXT i 

22 FOR i=l TO 46; PLOT 215,80- 
i. DRAg -60*i«1.3,0. NEXT i 

24 INK S; PLOT 132,157 DRAU 6 
3,0: PLOT 192, ISa. DRAU 63,0 

25 PLOT 20S.153. DRAU 0,1B; PL 
OT 210, 1S3. DRRg 0,18 PLOT 238, 
1S3- ORAg 0,18: PLOT 248,153 DR 

26'PLOT 196.159' DRflU 13,13, 
RAg 15.-11. ORAg 15,11. DRAg 13, 

26 PAPER 0. INK 6; PRINT AT 1, 
29 IKK 7 PAPER PRINT AT 21 

.0, TRBLtflU ".ta 

33 PRINT INK 4. AT 21. 12, "EfiflEB 



= tincuris j*u 1- 

70 RE5TORE~72~~FOR~a=l~fo~19. 
READ at: FOR u =0 TO 7; READ b P 
OKE U5R a*tu,b: NEXT u: NEXT a 

72 DATA "a" ,54,60,63,123,75,12 
2,76,120: DATA " tt" , 146 , 130 , 2S4 , 5 
5.255.0.0.0 

74 DATA "c" ,136, 120,68,60, 164, 
168,100,60 DATA "d " . 4 , IS . 9 , 15 , 1 
7.30. 18,62 

76 DATA "e" , 146, 147, 17.57,41,6 
3,64,84 DATA " f " , 64 . 224 , 32 , 224 , 



Lambert NICOLAS 



334 LET 
336 IF b 

O 600 

310 INK 4 PLOT 6,50 DRh 

PLOT d.lOO DRAU 0.3 BEE 
,0 

316 PLOT OVER 1,3.50. Dfii= 

1,0,3. PLOT OVER 1. d.100 
OVER 1,0.3 

329 IF u>9 AND S=3 THEN C 
360 

331 IF y*15 AND q=3 THEN 

380 

335 IF y=21 AND p=3 THEN 



16,248. 144.248 

78 DATA "9" ,8i»j»/»,»,».-. ■ 
ATR "h", 56, 56, 16. 16. 16, 1*7. 146. 2 



,0,3,4.7 



55 

80 DRTA "i " ,0,0,0,0,0. 128,64, 1 
92: DATA " j " , 1 , 1 , 1 . 3 , 6 , 255 , 39 . 3 

32 DATA "K ",12a. 128, 126. 192. 96 
,255,228.192: DATA "','■.0,0,1,255 
,255. 1.0,0 

84 DATA -■»" ,3,0. 128,255,255, 12 
8,0,0 DATA "n" ,60,126,231,195,2 
55.126,126,59 

if dais "o" ,B, 24 ,24.24,24,24 .2 
55,24 DATA "p " , , 3 , 4 . 24 . 42 . 65 , 7 

a. 65 

90 DRTA "q" ,0, 192.32.224 ,6,8,9 
2,34. DRTA ".-",72.32,51.37,40,32 
.16,7 DATA "S" .66,2,2.66,76. 112 
.123.0 

93 REM ===.===« 



100 LET y-15; LET X»18; LET q=l 
LET Sal: LET pal: LET 1-255: L 
FT ba-150: LET en=0 

115 PAPER 0: INK 6. PRINT AT X, 

y "?3C",at x-i, y ."Btf.RT «-8.y: 

116 INK 3. PRINT AT 1,19, ba . " 
IF ba.-0 THEN GO TO 705 

117 INK 5- PRINT AT 21,20, <n. I 
F en=70 AND t;=224 THEN GO TO 10 
00 

120 IF INKEY««"5" THEN GO TO 14 
8 

123 IF INKEY»="S" THEN GO TO 15 
S 

125 IF INKEY*="0" THEN GO SUB 3 
00 

123 IF p=4 THEN LET p = l GO SUB 

133 IF 5=4 THEN LET S-l GO SUB 

470 

136 IF q=4 THEN LET A»l GO SUB 



215 PRINT AT 6.14. PAPER 1. 



im 



Ink 



224 PRINT AT 6,14, PAPER 1," 

".AT 7,16. " ". LET q-4 
230 RETURN 

234 PRINT AT 10,12, PAPER 1, IN 
<. 2, "Jn" L ^ T ** 2 

235 RETURN 

240 PRINT AT 10,12, PAPER 1. 

242 PRINT AT 6,3, PAPER 1. INK 

■iSTOjjar ''** LET, ° 

250 PRINT AT 8,8, PAPER 1." 
".AT 7, 10, " " LET s=4 

255 RETURN 

257 PRINT AT 10,19. PAPER 1, IN 

■v 2, "JK" LET p. 2 

251 RETURN 

263 PRINT AT 10,19, PAPER I." 




DATA 'V' ,255,1.1.2,7. 12. 2»,„. 
1120 DRTA " i." ,255, 123 , 128, 192,22 
4,48,152,152 DATA "a " , 25 , 31 , 31 . 
15,7.3,16,56 

1127 DATA "n" ,216.249,246.240.22 
4,16,6,28 DATA "o " . 127 . 1 , 3 , 7 .6 . 

li32 DRTA "P' 
,224,192.32 
2,65.72.80 
1136 DRTA T 
2,34. DATA "l 
.16,7 DATA 
.123,0 
1140 REH 



,192 i 32,224.e,8 



.AT 7,10,* 

363 FOR a=l TO 6. PRINT I 
. INK a, AT 7,9,"PQ",flT 8,' 

373 NEXT a 

373 PRINT PAPER 1 , AT 7,9 
T 8.9, " " LET s=l 

376 GO 5UB 490 

376 RETURN 

380 FRINT PAPER 1, RT 3,1. 

",HT 7.16, " " 

385 FOR a-1 TO fc, PRINT I 
, INK a , RT ~ _ " 

338 NEXT a 

390 PRINT PAPER 1 , RT 7,15. 
AT S, 15, " . LET q = l 
395 GO SUB 490 
400 RETURN 
403 PRINT PAPER 1 , AT 3,20. 



1160 LET ysy LET x=18. LET 0)u 
atlOO LET «*=«ntO LET nl LI 

t>=l LET e-1 LET dS=255 
1170 PRPER INK 6. PRINT AT x , 
)U"BBC".AT K-l.y, "QEf ".AT *-2... 

1T72 IF INSEY»="0" THEN GO Sue 1 

500 

1175 INK 3 PRINT AT l,19.mu," 

IF mu-0 THEN GO TO 705 
1130 INK 5 PRINT AT 21,29, em I 
F en=140 AND dS.-=224 THEN GO TO 
2000 

1161 IF INKEY«="S" THEN GO TO 12 



1807 PLOT 180,102 DRAu -12,-14; 

PLOT 158.68; DRAU -5.-7 
1309 BEEP .005.-15 BEEP 0.05,-1 
6 

1810 PLOT OVER 1,130.102 DRAg 
VER 1,0,-14: PLOT OVER 1,130,71: 

DRAg OVER 1,0. -20 

1811 PLOT OVER 1,79.102 DRAU QV 
ER 1.12,-14. PLOT OVER 1,106.66 

ORRg OVER 1, 5. -7 

1812 PLOT OVER 1.180,102 DRRg 
VER 1,-12,-14 PLOT OVER 1.158,6 
3 DRAg OVER 1. -5,-7 

1813 IF y=15 THEN GD TO 1815 
1314 IF y.,15 THEN RETURN 

1915 RESTORE 1316 FOR a-1 TO ■ 

READ w BEEP .009. w NEXT a 
1816 DATA 1,3.0,0.3,3,0,6.0.5,1 
0,3, 5, 0.6, 0.3. 0,0. 3. 6, 0,4,0, 12 
.0. 12.0. 10,0.0.6.6,0,3.3,5,0,0 
,5,0.0 
1317 GO 506 9003 RARER 



0-1 THEN GO SUB 2125 
2104 IF PO-2 AND 1-2 AND 

0=1 Then go sue 2128 
2135 GO TO 20&r 
2110 PAPER " 
", INK 2, AT . 
, "Q" LET po=INT 
2 RETURN 
2114 PAPEI 



0-3. 
R 1 
.4.B, ,AT 7, 

0". LET po-INT 

RETURN 
2119 PAPER 1 

",AT 5 



1520 INK 7 PRINT AT 
lSaI_INK_g__PeiNT AT 



2,2. 



50 

1182 IF INKEY 

50 

1163 IF INKEY 



m 



JNK 3 PRINT AT 
tssign fly 



•lft 5 su 

xodple 
■L*.8n. 

■ffl*u 



:INT AT 

.■■lupqp 

iRND*3 



10, 16. ' 

" IT 6 

LET 



NK 2 PRINT AT 7. 

,16, " ", AT 10. 16. 

RETURN 

NK 2: PRINT RT 10 

."L.PSP '.AT 6.9." 

iRND.3) LET c-2. 

PRINT RT 7. 



".AT 10,: 



:AT ' 



.22, 



RINT PRPER 

i.aa; "R! 



THEN GO TO 12 
THEN GO SUB 1 
GO SUB 



411 NEXT a 

414 PRINT PAPER l;RT 7.22, * 
AT 8.22, " •' . LET P = l 
417 GO SUB 490 
423 RETURN 

470 INK 5 PLOT 1,153. DRfiU OVE 
R 1,0,19: PLOT 1-1,153 DRfiU OVE 
R 1,0,19 PLOT V-2,153. ORRU OVE 
R 1,0,19 

471 IF (., = 192 THEN GO TO 650 
475 LET t=l-3 

480 RETURN 

490 LET en-en+l 

491 IF en-71 AND I (=224 THEN GO 
TO 790 

492 IF >.=255 THEN RETURN 

493 LET l-t+1: INK 5: OVER 1 P 
LOT '.,153 DRAU 0,19: OVER 

530 RETURN 

610 FOR a=l TO 6: PRINT FLA5M 1 
, INK 2. AT 1, 19, ba, " •' 
620 6EEP 0.35,10: NEXT a. LET b 



1185 IF r=4 THEN LET 

1504 
1137 IF h=4 THEN LET K-l GO SuB 

1594 
1188 IF «=4 THEN LET e-1; GO SUB 

1594 
124S LET w-INT iRNO.3) : LCT K =IN 
T l RND*3J : LET tsINT iRND*3l 
1247 IF n3 AND h = 3 AND «-3 THEN 

GO SUB 1300 
1250 IF INKEY(-"5" THEN LET y -« - 
PRINT RT 



'"?• " 



, RT x -2 , 



-6. ■ 



1255 IF y-3 THEl 

1250 IF INKEY t 

6: PRINT RTx.L _. 

-6;" ",AT x-5,y-S," 

1275 IF iNKEYS-"0" THEN GO SUB 1 



LET u=y+6 
8" THEN LE - 



■73 



1280 IF 
1305 

1281 IF 
1316 

1282 IF 
1311 



porn 



550 FOR a-1 TO 15 

660 BORDER 1: BORDER 2: BORDER 
3: BORDER 4 BORDER 5: BORDER 6 
BORDER 7 BORDER 
665 BEEP .005.01: NEXT a 
672 PRINT PAPER 0, FLR5H 1,AT l 



.23, _■ 



1,23, " 



2.2. " 
TRUlT 



|S6 PRINT INK l.RT 18,1; "IH. R 
U lSi m H '^ CO TO . 



1234 IF 
1350 
1286 IF 
1364 
1291 IF 
1356 
1293 IF 
1334 

1296 IF 
1327 

1297 IF 
1320 

1300 GO TO 
1305 PAPER 



=0 AND f»3 THEN GO 5UB 

si AND I" -2 THEN GO SUB 

-2 AND «-l THEN GO SUB 

:2 AND <a3 THEN GO SUB 

-O AND 4-2 THEN GO SUB 

=1 AND h=3 THEN GO SUB 

=1 RND h=2 THEN GO 5UB 

=0 AND hsl THEN GO SUB 
1170 



PRINT AT 10 



.324 RESTORE l52S. FOR a-1 TO 51 
. RERD d BEEP . 20 , d NEXT a 
1825 DfiTR 6,6,8,10.10.6.6,5.3,3, 
5.6,6,5,5.0,6.6,8. 10,10.8.6,5,3, 
3,5,6,5,3,3,0.5,5.6.3,5,6.6.6,3. 
5.6.8,6.5,3,5,4.2,0 
1830 IF INKEYS="0' THEN GO TO 5 
1633 IF INKEY«="n" THEN STOP 
1835 GO TO 1830 
1340 STOP 

1850 FOR Hi TO 6 PRINT FLASH 1 
, INK 2, AT l,19,nu." " BEEP 0.3 
5,10. NEXT a: LET «iu = 73 RETURN 
1900 STOP 

2000 OVER O. PAPER INK 7 LET 
ta=3; PRINT AT 21,8, la 

2005 RESTORE 2001 FOR a-1 TO 12 
. READ at: FOR i -0 TO 7 RERD i 

POKE USR a»ti,C NEXT l NEXT a 

2006 DRTA "j" ,0,0,0.0,60, 126.258 
.255: DATA "l^" ,0,0,0, 1, 15. 127,25 
5,255: DATA " '. " ,0.0,0.224 .240.25 
2.255,255 

2007 DRTA "■" *fl ,0.255.255, 16, 16 , 
50,80: DATR 'n ' . 114 , 20 , 23 . 20 , 18 , 
56,56,255 DRTA "o " . 129 , 255 , 165 , 

.^,255,255.25 
200S DATA "P". 255, 255, 255, 255. 15 

,7,1,0. DATA "q - 

1,15.15.7. DRTA 
0,0 

2009 DATA "C' ,255,254.254,254 .25 
4.0.0,0. DATA "l ' .24e.240.224, 19 
2,192.123.126.128 DATA "u",258, 
253 , 255 , 255 . 255 , 254 . 252 , 246 

2010 PAPER 0: PRINT AT 0,24," 
".AT 1,24, " ",RT 2,2 

2011 PRPER 1; PRINT AT 11,6," 

",fiT 9,7; '• ",R 
T 9,24; " " 

2012 PRINT RT 10,6. " 

",RT 7,6. " 
",AT 6,6; " 



K". LET e=3: RETURN 

2125 PAPER 1: INK S: PRINT AT 10 

,16i" ",AT 7,ali"LBinDP-.fiT 6.2 
3, "Q" . LET i -2. RETURN 
2123 PAPER 1 INK 2: PRINT AT 7. 
21," ",AT 6.23," ".AT 13.16, 
" j(i" LET i =3 RETURN 
2300 IF y-=21 THEN LET ',1=21 
2305 LET ia=ta-l LET f=y*8*ll 
2307 IF ca=75 OR ;aa76 THEN GO S 
U6 2500 

2310 INK 6 PLOT (.50 DPRU 0,8 
PLOT I . 100 DRAU 0,8 BEEP .005 

.0 

2315 PLOT OVER 1. * ,50 DRfiU OVER 

1,0.3 plot over i.f.ioo drau 
oves l. o.e 

2317 IF v-15 AND 0=2 THEN GO SUB 
2335 

2320 IF -,1=9 AND a =2 THEN GO SU8 
2340 

2321 IF ||*ai AND i=2 THEN GO SUB 
2350 

2330 RETURN 

2335 PRINT PAPER 1 , AT 7,14," 
".AT 6,16. " " 

2336 FOR ael TO 4: PRINT PAPER 1 
, INK a, AT 7,15, "tlJ", AT 6.15, "RS 

. NEXT a 

2337 PRPEA 1 PRINT RT 7.15," " 
J AT 6. 15, " 

2338 PAPER 6. LET 0=1 GO SUB 24 
10 RETURU 

2340 PRINT PAPER 1, AT 7,7," 
", AT 6.9. " " 

2342 FOR a=l TO 4 PRINT PAPER 1 
, INK a.RT 7,8- "TU'.RT 6,S,"R5" 

NEXT a 

2343 PRPER 1 PRINT AT 7.8," "i 



GO SUB 24 



AT 6,8.' 

2344 PRPER 6 LET « 

10 RETURN 

2350 PRINT PAPER 1 , RT 7,21, " 
".AT 6,23, " " 

2351 FOR a-1 TO 4: PRINT PAPER 1 
, INK a, AT 7,22,"TU".mT 6,22. "RS 

: NEXT a 

PRINT RT 7,22, " 
LET i =1. GO SUB 24 



DRAU OVE 
,_ DRAU OVE 
152 DRRg OVE 



695 IF XNKEYia 

700 GO TO 690 

. REH =-: 



THEN STOP 



=RINT RT 10,12, " 
1313 INK a, PRINT AT 7,S,"JKl.J" 
AT 8,9, "Hi]" LET r-3 

1315 RETURN 

1316 PAPER 1: PRINT AT 7,8," 
", AT 8,9, " ": LET C =4 

1315 RETURN 

1320 PAPER 1: INK 0: PRINT AT II 

, 15, "DP"; LET h=2 

1325 RETURN 

1327 PAPER 1: PRINT RT 10,15." 



2028 LET Hi" 

2029 FOR i-l TO 3 PAPER 5 PRIN 
T AT i, tll,6,d«: NEXT i 

2030 FOR ml TO 3. PAPER 6: PRIN 
T AT i +15,6, d* NEXT i 

2031 PAPEA 5: INK 6 PRINT AT 15 

.6. JKLKLJJKLJtLJJfclJKLKL'- 

2032 PSPER 5: INK 0: PR.SNT AT 12 
, 15, -'Qlt", AT 13,15, "R5", PRPER 1 
,RT 11,14, "«"" 

2033 PAPER ll INK 0; PRINT AT 10 
,14,"rj";RT 8,14,"i";AT 9,14, "fl" 

2034 INK 4; PLOT 192,168: DRAU 6 



2352 PAPER 1 
-RT 6,22," ■ 

2353 PRPER 6 
10: RETURN 

2400 INK 4: PLOT v , 152 
R 1.0.20 PLOT v-1,152 
R 1,0,20: PLOT - 
R 1,0,20 
2405 IF v.=192 THEN GO TO 650 
2407 LET v«V-3; RETURN 

24 15 IF ,=255 THEN RETURN 

2417 LET V-V»l. INK 4; OVER 1: P 
LOT -152 DRfiU 0.20: OVER 

2418 LET «a-*t*l 

2419 IF fit-200 AND v - =224 THEN G 
TO 700 

2420 RETURN 

2500 FOR a-1 TO 6: PRINT FLASH 1 
. INK 2, AT 1,19, Ca," ": 6EEP 0.3 
5,10. NEXT a: LET ca-73: RETURN 
2600 REH . = = - = -=•= = = = - = = = = = = . 

- decor jsu 4 ■ 



"or. 



PRINT AT 7 14 - IUL I" 3.0 PLOT 192,157: DRAU 63,1 
r Ki . i» . _i' **' J " LJ sa^m pi dT saa.isa drau b.2i 



LET I 






139 LET O-INT iRND*3l LCT u=IN 
T 1RND«3i LET i elMT l RND*3l 
148 IF INKEYI-"S" THEN LET v-W- 

6: PRINT AT *,y+8;" .RT x-l,y 

»6; " ".HT X-S.yt-6. " 
153 IF y«3 THEN LET U-«*6_ 
158 IF lNKEY«»"8" THEN LET v*V* 

6: PRINT AT x,y-B," ".AT x-l.V 

-6; •' ", AT X-2.V-6, " 
160 IF INKEY«-"5" THEN GO SUB 3 

167 IF y-27 THEN LCT u=y-6 

169 IF u-2 AND q=l THEN GO SUB 

171 IF 1-0 AND *-l THEN GO SUB 
234 
175 IF o-l AND P-l THEN GO SUB 

182 IF u-1 AND q«2 THEN GO SUB 
212 

165 IF i>2 ANO £-2 THEN GO SUB 
240 

186 IF 0-0 ANO P=2 THEN GO SUB 
263 

190 IF u-0 AND q=3 THEN GO SUB 
224 

194 IF i=l AND S=3 THEN GO SUB 
253 

196 IF 0-2 AND P-3 THEN GO SUB 
271 

200 GO TO 115 

205 PRINT RT 10,15, PAPEA 1, IN 
K 2,"JIS". LET q-2 

210 RETURN 

212 PRINT AT 10,15, PAPCR 1." 



2.2. LE STX 

CFUifiE. 

RREI 

INK 4. AT 12,2, "Unt HU 

D/ft" 

_. _NKEY» = "0" THEN GO TO 5 
725 IF INKEYi="n" THEN STOP 

730 GO TO 720 

731 RCH ->-=-■-=-=■--========= 

- bi ian trap dc dcga t- 

790 FOR a = l"T6*ll" E BCep I 70O5"0 
: BORDER 1: BORDER 2: BORDER 3. 
BORDER 4 BORDER 5. BORDER 6 80 
RDER 7 BORDER 

795 NOT a: GO SUB 9000. PAPER 

i %a ssff LuMt 

_(M>5,ffilST lNK^4.flT n 6,2; "B TRDP 

607 PRINT INK 1; AT B,2,"flCCQiPL 

^llO.PRJNT^INK^S.flT 12,2. "UI1E HU 

815 IF INKEY«="0" THEN GO TO 5 
817 IF INKEY»n"n" THEN STOP 



1332 RETURN 

1334 PRPER ll PRINT AT 7,14," 

",fiT 8.15, " ": LET h.4 
1338 RETURN 

1350 PAPER 1: INK 0; PRINT RT 10 
,18, "DP": LET c-2 
1354 RETURN 
1356 PRPER 1: PRINT RT 10,18," 

1358 INK O: PAPER 1^ PRINT RT 7, 
SO, "jglJ";AT 6.21. "Bfl": LET e -3 
1352 RETURN 
1364 PRPER 1: PRINT RT 7,20," 

";RT 8.21, " " . LET « -4 
1366 RETURN 

1500 IF y>»21 THEN LET u*21 
1510 LET mu-wu-1 LET l«y*B+ll 
1515 IF nv-75 OR «g-76 THEN GO S 
ijB 1850 
1520 INK 4; PLOT 1,80: DRAU 0,8. 

PLOT 1,100. DRAU 3.6. BEEP .005 



2,'OETRUIT 



1530 PLOT OVER 1, 1.50 

1,0.8. PLOT OVER 1, I 

OVER 1,0, a 



- decor jiu 2 ■ 

looo Over e ink 7- let ia-2 pr 

INT AT 21,6, ta 

1005 RESTORE 1010 FOR a-1 TO 3 

READ at FOR 1=0 TO 7 READ b 
POKE U5R attt.b: NEXT I NEXT a 

1010 DATA " j* ,30,212,84,54,65,50 
, 148.89 C-hTA '>,■ ,35,53,22, 148.3 
3,89.32,32 DATA " i " , 35 , 65 , 54 , 20 
,3a,24 . 15.255 

1011 INK 4 PRPER 1. PRINT AT 11 
,7,"L".flT 10,7, "K", AT 9,7, "J" 

1012 FRINT AT 11.24, "L". AT 10,24 
, "V, " AT 9 24 "J" 

1015' PAPER 0! PRINT RT 0,24. 

",AT 1,24," ",AT 2,2 

1020 INK 2: PLOT 192.157 DRfiU 
0,-13; PLOT 192.153: DRAU 8,0 

1030 PLOT 201,153. DRAU 20,0, -PI 
. DRAU 3,0 DRRg 20.0, -PI. DRAg 
6,0 DRfiU 0, 13 

1031 PLOT 192,167. DRRU 63,0 PL 
OT 192.163: DRAU 63,0. PLOT 192, 
158 DRAU 9,0 

1032 PLOT 220,158 DRRU 9,0 PlO 
T 248,156 DRRU 6,0 

1033 FOR s»l TO 60 STEP 10 

1035 PLOT 194*a*3,167. DRflU 0.-4 
: NEXT 1 

1038 PLOT 196.162 DRfiU 0.-4 PL 
OT 224,162 DRAU 0.-4. PLOT 251. 
162- DRAU 0,-4 PLOT 196,155 DP 
AU 0.-4 

1040 PAPER 1 PRINT RT 10.12, " 

1041 PRINT AT 8.7, " 



DRAg OVER 
.00 DRRg 
OVER 1,0,8 

1533 IF y-0 AND r -3 THEN GO SUB 
1560 

1536 IF y-15 AND h -3 THEN GO SUB 
1568 

1537 IF y«21 RND «-3 THEN GO SUB 
1592 

1550 RETURN 

1560 PRPER 1; PRINT RT 7,8." 
",AT 6,9, " " 

1562 FOR a«l TO 4 PRINT PAPER 1 
. INK a, AT 7,9, "OR". AT 6,9; "5l" ■ 
NEXT a 

1564 PRINT PAPER l.RT 7,9," ",A 
T B, 9i " 

1565 LET fall PAPER 0: GO SUB 16 
00 

1567 RETURN 

1566 PRINT PAPER 1, AT 7,14;" 
",AT 8,15; " " 

1572 FOR a-1 TO 4; PRINT PAPER 1 
. INK 4, AT 7,15. "QR", AT 8,15, "5T 

I NEXT a 
1576 PRINT PAPER 1;AT 7,1s," " ; 



2035 plot 202,152. drau 0,20 or 
AU 3.0. DRAU 0,-20 DRfiU -3.0 

2036 PLOT 240,152; DRAU 0,20: DR 
AU 3,0 DRAU 0.-20 DRAU -3,0 

2037 PLOT 206,151; DRAU 32.9,-1. 
6: PLOT 206,153; DRRU 32,0.-3 

2038 PLOT 213,157. DRAU 0,7: PLO 
T 216.157; DRflU 0,8- PLOT 219,15 
7: DRAU 0,10 

2039 PLOT 222,157; DRAU 0,11: PL 
OT 225,157: DRflU 0,10: PLOT 226. 
157: ORRg 0,8 

2048 PLOT 231,157; DRAg 0.7 
2045 REM ■>»«■■•• 



2050 RESTORE 2051: FOR d-1 TO 12 
READ at FOR h-0 TO 7 READ »- 

POKE USR ««+h,i: NEXT h. NEXT d 

2051 DATA "j" ,0,3,0, 1.127,9,16.1 
6: DATA "H" ,128,224, 128,102.127, 
200, 132.132 
2053 — 

2055 DATA""n"T60?126?23i; 195,255 
,126.24,24: DATA "0" ,0.0 ,3, 255 ,5 
,12,4,4 

2057 DATA "P" ,0,0,0.252.0,0.0.0: 
DATA "q", 0,0, 24, 24, 24. 255. 24, 24 



3000 PRPEA OVER 
la a4; PRINT RT 21.B, 
3010 RESTORE 3011: 



POKE USI 
3011 OflTR 
31. DATA 
5,255,255 



INK 7: LET 

-1 TO 9. 
READ d 
. NCXT a . NEXT s 
j" ,0,0,7, 15.31 ,63,63. 
".0.56,252,254,255.25 
„. DATA "L" .0. 15, 150.255 
,255.255,255.255 

3012 DATA "«" .31.63,63,63.31, 15, 
O.0: DATR "n" ,256,255,255,255,20 
7,131,0,0 DATA "0" .255.254,252. 
252.152,0.0,0 

3013 DATA "p" ,0,0,0,0,60. 126,255 
.255: DATA "q" , , . , 1 . 15 , 127 . 25 
5,255; DATR ".•■',0,0,0.224.240.25 
2,255.255 

3015 FOR a=l TO 5: PRINT PAPER 1 
.AT 4t5.8;" 

: NEXT a 

3016 PRPER 5. PRINT RT 10,6, " 

",RT 11, K" 

";RT 13,15. " 

".RT 12,15, " 

3017 PRPER 6: PRINT HT 15.6, 



3020 

7, ■■aur.RT 

3025 PAPER 



. INK 7; PRINT AT 
,7, ttrtD -.«T 6.16, " 
ItlD"; AT 6.25, "J',.A 



2060 DRTA " f ", . 3 , 4 ,24 , 42 , 65 , 72 , 
30. DATA "S'.O, 192,32,224,8,9,02 
,34. DATA "I- ,72,31,51,37,40,32, 



DATA "j" ,66,2,2,66 ,76 
128.0 
2061 LET 
LCT « ' 



112 . 



tati'ti 



-y . LET ^-18 LCT 0=1 
LCT i-l LCT v-255 LC 
... . 100 LET ti =t» 

2063 PRINT PAPCR 1. INK 2, AT 10, 
15, "JK" 

2064 PAPER 6. INK 0. PRINT RT x . 
■'1BC".RT x-l,y, "DEf ".RT x-2.y; 






PAPCR 0: GO SUB ie 



265 PRINT RT 8.20, PRPER 1. INK 

2. "La(lLH".RT 7,22, "D". ^ET p =3 
269 RETURN 

271 PRINT RT 8.20, PAPER 1," 

", AT 7,22; " " : LET P =4 
278 RETURN 

300 IF yi-21 THEN LET y=21 



AT 8,15, ' 

1578 LET I 

00 

1560 RETURN 

1583 PRINT PRPER 1 ; RT 7.20;" 

",AT 6,21, " " 

1567 FOR a>l TO 4; PRINT PAPER 1 

, INK a, AT 7,21,"UR",RT 8,31; "5? 
: NEXT a 

1590 PRINT PAPER 1 , AT 7,21;" 
AT 8,21," " 

1591 LET t-1: PAPER O GO SUB 16 
00 

1593 RETURN 

1594 INK 2: PLOT d*,152: DRAU OV 
ER 1,0.19 PLOT d*-1.152: DRRU 
VER 1,0.19: PLOT dt-2.152: DRflU 
OVER 1,0.19 

1595 IF dH-192 THEN GO TO 650 
1597 LET d*=dt-3 RETURN 

1600 LET Cb-«b*1 

1601 IF aa>140 AND dS'- -224 THEN 
GO TO 790 

1602 IF dS-255 THEN RETURN 

1603 LET dl-dS+1 INK 2; OVER 1 
PLOT d*,152: DRfiU 0.19: OVCR 

1613 RETURN 
1650 REH 



2067 PAPER 0. INK 5: PRINT AT 21 
.29, CS IF 4S-200 AND vi«224 THE 
N GO TO 3000 
2073 IF INKEY»-"5" THEN GO TO 20 

' THEN GO TO 20 

THEN GO SUB 2 



2074 IF INKEY*-' 

as 

2075 IF INKEY*- 
300 

2076 IF 0=3 THEN LET o-l GO SUB 
2400 

2077 IF « =3 THEN LET «-l. GO SUB 
2400 

2073 IF i»3 THEN LET i-l GO SUB 
2400 

2079 LET po-INT iRND*3) 

2080 IF INKEY»-"5" THEN LCT y -y - 
6 PAPCR 6 PRINT AT x,y*B." 

, RT x-l,y»6i" ".AT x-2.y*5," 

2083 IF yi3 THEN LET y-v+6 
2035 IF INKCYJ-' 8' THCN LET u«y* 
6 PAPCR 6. PRINT AT x,y-6, 
,AT *-l,y-6," ",AT x-2,y-i 



3353 C55T.:pe 3051 FOR a-1 TO 12 

READ at FOR 1 -0 TO 7 RERD C 
-.EGKE w5B 1**1 .it: NEXT 1. NEXT a 
3651 DBTB "J" ,73.39,27,31,255.12 
7,127,63 DATA " *. " , 254 , 192 , 254 , 2 
24.252,252,254,254 DATA "I", 0.9 
.0.0,7.53.39. 17 

3052 DRTA "n " , 52 , 191 . 127 , 156 , 255 
,255,255.18 DATA "n , 128 , , 32 , 6 
4,144,160.192,128: DRTA "o",S,28 
.127,3.25.28.73,62. DATA "p".8.8 
,20.24,126.60.238.111 

3053 DfiTR "q" .0,32,64.29,34,34,7 
2,36: DRTA " r " . 16 ,0 , 2 , 240 , 10 , 72 . 
132,4. DATA "*" ,32,114,33.34,18, 
14,65.16 DATA " I " , 72 , 132 , 6 , 10 , 1 
12.66,136,0 DATA "u ' , 56 , 58 . 146 , 
126,58.56.40,108 

3059 RCH ■■■■■■b-b 



3060 LET y-y . 
LET a-1. LET 
I LET tC-«S. L 

3070 PAPER 6; 
1BC".AT x-1 



3071 PAi 
19, Cr, " 
05 



IF 



2087 IF INKEY*" 



THEN GO SUB 2 



J PAPER 0: INK 
,29;<C IF «C=270 
GO TO 5000 

3073 IF INKEYt."0" 
503 

3074 IF INKCY«-"S" 



1130 RESTORE 1110 FOR a-1 TO 11 

READ a* FOR l=fl TO 7 READ b 

POKE USR at»l,b. NEXT I NEXT a 

1110 DATR -j " ,255,0,0,0,0.0.0.0 



.3 OS 
. -14 
.::ll-- 



iStlltS > 

[NK 7. PLOT 130.102: DRAU 
PLOT 130,71 DRAU 0.-20 

- - ,102 DRflU 12, -14. P 



LOT 106,68' 6RAU 5. -7 



2090 IF y-27 THEN LET y-y-6 

2093 IF po-0 AND 0-1 AND l-l RND 
«-l THEN GO SUB 2117 

2094 IF po=l RND 0=2 AND i-l ANO 
e-1 THEN GO SUB 2114 

2097 IF PO-2 AND (=1 AND o-l AND 
i =1 THEN GO 5UB 2110 

2095 IF po-1 RND C-2 AND 0-1 AND 
1 =1 THEN GO SUB 2119 

2102 IF PO-1 AND 1-1 AND C-l AND 



075 IF INKEY* 

HEN LET 
LET 



3076 : 
3700 

3077 IF a=4 THEl 
3700 

3073 IF 
3700 



LET er«C»+K 
-9 

). PRINT AT : 



THEN GO SUB 3 
THEN GO TO 31 
THEN GO TO 31 
GD SUB 
GO SUB 



THEN LET 



GO : 



Suite page 22 



VAN BEETHOVIC 



VK20 



Reconstituez les morceaux que VAN BEETHOVtC, un 
grand compositeur des temps modernes va vous inter- 
preter. 

Philippe BOICHUT. 
Mode demploi : 

La VIC vous interprete un morceau de musique deux lois de suite. 
apres quot. vous devez le recontiluer en utilisanl les curseurs pour 
deplacer la Heche el en appuyant sur F7 pour valider voire note 

16 SVS58719 CH-32768 P0KE36679.25 P0KE56,28 

20 FORX=IT092 RERDB NEXT 

36 REM »**••*•******»* 

40 REM * VftN BEETHOVIC 

50 REM * BOICHUT. P • 

60 REM * VIC 20 ♦ 3K • 

?e REM **«••••«*••*••* 

80 SV5604 16 PRINT- — — »»/ 1 — I !T>S- 

100 Q0SUB119 SVS58719 SVS60416 POKE36869.255 OOTO640 

110 PQKE52.28 P0KE56,28 

120 J8«7168 FORK9-J8T0J8+511 POKEK9.PEEK<:K9*25690> NEXT 

130 FORJ8-7448T07S27 RERDJ4 POKE J8, J4 NEXT 

140 RETURN 

150 PRINT NMMHnmnMMMi V01CI LR &fl<1ME" 

1*0 J3-J F0RJ4-1T06 

170 QNJ4OOSUB890, 998,910. 926. 930. 948, 950, 960 

160 CU3J-J3 

190 P0KEP7+22.39 P0KEP8*22,8 POKEP7+44.40 PQKEP8+44.6 

280 Q0SUB349 PQKEP7*22,38 P0KEP7+44,32 P7-P7*2 PB«P8*2 

218 NEXTJ4 FORJ7-1TO2080 NEXT 

220 PR I NT "1 VOICI LE HORCEflU " 

230 F0RJ7-1T018O8 NEXT 

240 P7-7837 P8-3855? Jl»44 J2-42 

250 J3-1 F0RJ4-1T08 

268 J8«INT(RNDU>*8>*1 

278 IFJ8-8THEN260 

298 ONJ8GOSUB890 .900. 910,926,938. 949. 950. 960 

298 K7CJ3J-J6 

380 PT>;EP7+22.39 P0KEP8*22,6 POKEP7*44,40 POKEP8*44.0 

318 00SUB348 P0KEP7+22. 38 P0KEP7*44 , 32 

328 J3-J3*1P7-P?*2 P8-PB*2 NEXTJ4 FORJ7-1TO1800 NEXT 

GOSUB1160 
330 OOSUB370 
340 P0KE36878,15 P0KE36875,N<R> P0KE36876,N(fl> FORT-1TO300 

NEXT POKE36875.0 POKE 
36876,0 

350 P0KE36878. 15 RETURN 
368 P7-7637 P8-38557 JJ-44 J2-42 
370 FORJ7-1TO508 NEXT 
380 PRINT-T JE VOUS LE REJOUE " 
398 FOPJ7-1TO1500 NEXT 
488 P7-7837 P8-38557 
418 F0BK3-1T08 

428 ONK7<IC3)GOSUB890. 909. 910, 928, 939, 946,950,960 
438 PQKEP7+22.39 POKEP8*22.0 POKEP7»44.40 P0KEP8+44.6 
448 G0SUB348 P0KEP7+22- 38 P0KEP7+44, 32 
458 P7-P7+2 P8«P8*2 NEXTK3 F0RJ7- 1 T028e8 NEXT 
468 GOSUB1160 GOTO1320 

470 DRTR216. 0,0, 214, 0,0.206,131, 145,157 
480 DRTR0, 172, 181-189, 0,280. 0-8. 8, 8 
490 HRTH0, 8,211. 8, 0,0-0. 162.0.0 
500 DR.TR0. 196, 0-0, 0-0,0- 203-209, 138 
510 DfiTfll67. 0,177- 193.0, 151.8.185.0.0 
520 DflTfi218-8,220 
^8 DRTfllS.lI- 7, 6. 5, 5, 4, 4, 4,3-3, 3. 2. 2. 2. 2, 1,1. 1-1, 1,1,0. 

0. e. 0.8-0, 0.0, 0,9. 9-0, -9 0,0-0 
540 DRTfW. 0.0. 0-0. 0.255.255 
550 DRTR1. 1.1,1,1,1,1,1 

560 DRTR12S.- 128. 128, 128. 128, 128, 128. 128 
570 DRTRZ'55,255,0,0.0.00.0 
~-&9 DfiTHl6.56.56.84.84, 146. 146. 16 
=i90 [IHTR16. 16- 16.16.16,16,0,8 
600 DRTR8, 0,0-0, 8.253, 85. 253 
619 DRTR0. 0.8,0,255.255-235,253 
628 DflTfll2S>, 129. 129. 129. 129, 129. 129. 129 
630 PRTR253. 253, 255, 255, 233, 255. 235-255 





Pl=36369 P2-P1*5 P3=P1*6 P4-P1-? P5=Pl+9 P6-P1+1 
P7-8957 PS-38777 Jl=44 J2=42 

p:-o^ubi799 

PRINTS 1 2 3 4 5 6 7 8" 



*80 PPINT' 




690 PPINT' 




700 PRINT 1 


!♦**♦♦** 


?18 PPINT' 


******** 


?2fl PPINT' 


******** 


730 PRINT' 


******** 


740 PRINT' 


******** 


^50 PRINT' 


*«««*««« 


^60 PRINT' 


a 


770 PRINT- 





I PPINT" 



******** X" 



t ******* v.- 
******** % H 

!*******•/.■ 



PRINT" 
PPINT" 
PPINT" 
PRINT" 
PRINT- 
PRINT" 
COTO150 

P0KEP7+391 Jl P0KEP7*:i69. Jl P0KEP7+347, Jl P0KEP7*325. 
Jl PWEP7+383.J2 

POKEP8+391.0 POKEP8+369.0 POK£P8*347,0 POKEP9*325.0 
P0KEP9+383, 8 RETURN 
fi-3 J6«l OOSUB970 RETURN 
fi«9 J6»2 G0SUB988 RETURN 
ft»18 J6"3 OOSUB990 RETURN 
R«28 J6«4 GOSUB1000 RETURN 
fi-12 J6»5 GOSUB1620 RETURN 
R-13 J6»6 OOSUB1040 RETURN 
fl-14 J6-7 GOSUB1960 RETURN 
A-44 J6-8 OOSUB1088 RETURN 
P0KEP7J1 P0KEP89 RETURN 

P0KEP7.J1 P0KEP7-22J2 P0KEP8.2 P0KEP8-22.2 RETURN 
P0KEP7,J1 P0KEP7-22.J1 P0KEP6.3 P0KEP8-22. 3 RETURN 
P0KEP7.J1 P0KEP7-22.JI P0KEP7-44, J2 P0KEP8. 4 
P0KEP8-22-4 P0KEP8-44.4 
PETUPN 

P0KEP7. Jl P0KEP7-22.J1 POKEP7-44.J1 P0KEP8.5 
P0KEP8-22,5 P0KEP8-44.3 
RETURN 

P0KEP7.J1 P0KEP7-22-J1 P0KEP7-44. Jl P0KEP7-66, J2 
P0KEP8-6 P0KEP9-22-6 P0KEP8-44.6 P0KEP9-66.6 RETUPN 
P0KEP7,J1 P0KEP7-22.J1 P0KEP7-44.J1 P0KEP7-66-JI 
P0KEP8-7 P0KEP8-22.7 P0KEP8-44, 7 P0KEP8-66. 7 RETURN 
P0KEP7.JI P0KEP7-22.J1 P0KEP7-44-J1 P0KEP7-66.J1 
P0KEP7-88.J2 

POKEP8.0 POKEP8-22.0 POKEP8-44.0 P0KEP9-66.9 
P0KEP8-88.8 RETURN 
Kl»8037 K2»8071 
FORJ3-K1T0K2STEP2 

P0KEJ332 POKEJ3-22.32 P0KEJ3-44-32 P0KEJ3-66-32 
POKEJ3-88.32 NEXT 
Kl -38777 K2«3079I 
F0RJ3-KIT0K2STEP2 

POKEJ3.1 POKEJ3-22.1 P0KEJ3-44.1 P0KEJ3-66.1 
P0KEJ3-88.1 NEXT RETURN 

Kl«7837 K2«7831 

F0RJ3-K1T0K2STEP2 

P0KEJ3.32 POKEJ3-22.32 POKEJ3-44.32 P0KEJ3-66,32 

P0KEJ3-B8,32 NEXT 

K 1-38557 K2-38571 

F0RJ3-K1T0K2STEP2 

P0KEJ3, 1 P0KEJ3-221 P0KEJ3-44.1 P0KEJ3-«6,1 

POKE J3-88 , 1 NEXT PETUPN 



! :■}•<■• 
1 400 
1 -I 1 9 

1420 

1 4 50 
[440 
1450 
1460 

14-,'M 

1400 
1490 
[508 

!■!'.' 

1520 
1530 
1340 

1*^ 

15^9 

I58P 
1^90 

lr.00 

1610 

tSl'0 

U-38 
It' 40 

i -v.e 
ie?e 



1T30 
I "40 

|7M 

1 SO 

1770 

i rm 



F0PJ?=1T01988 NEXT 

PRINT"! VOICI LR REPONSE " 

Pr-8957 P8«38777 Jl-44 J2-42 

FORJ7=iTO10e0 NEXT 

F0RK3B1T08 

Ot#'7(K3)GOSUB890 990.310. 929- 930,940, 958.968 

P0KEP7*2239 POFEP8+22-0 P0KEP7+44.48 POK.EP8+44.0 

MrSUB340 P0KEP7*22.38 POKEP7*44.32 

P7*P7*2 P8«P8+2 

MEXTK3 FOPJ7-1TO1000 PETUPN 

P7-7835 P8»38555 Jl-44 J2-42 M-6 J3^1 

PPINT'H VOTPE PROPOSITION " 

K5=9079 Ll-3e79? POKEK3.39 P0KEK5*^2,48 POKEL1.8 

POKEL 1*22-0 

POKE 199.0 

C-ETfii IFflt="-TH£N1360 

IFRS-"ir-THEr»:6«K5''2 Ll-Ll*2 GOTO1400 

lFfl*="jr , THENK6-l'5-2 Ll=Ll-2 OOTOI408 

lFFH="r-THENK4=h4*l P7-P7*2 P3-P8+2 WSUB1430 

lFK6>4877OFr6>-8095THEN1350 

P0KEK5.38 P0KEK5+2232 P0KEL1-9 PON EL 1*22-0 POKEKS. 

39 POKEK6*22,40 K5-K6 

00 TO 1358 

IFK5=8079THEH;8«1 00T01510 

I Ft '5=8081 THEN .18=;- i".OIO1510 

IFIfS-SeSSTHENJS-i OOTO1510 

IFf5=8085THEIU8-4 G0T01518 

IFK3*80S?THEHJ8-5 OOTO1510 

IFK5*398?THENJ8*6 GOT01519 

lFK e -=3991THENJ3=7 G0T015I9 

[FK5'9093THENjr:=8 

'.HI [:?i>'VMJB*9>j 90(t . ■>) ti ?,-y . 330 ■ 94m . y,u ...m 

0OSU»348 

K8(J3>-J6 J3-J3*! 

IFK4-9THEN1560 

RETURN 

P7-7837 P8-38557 Jl-44 J2-42 

POKEK5 . 39 POKEK5*22. 32 

GOSUB1100 

PRINT-! JE VOUS Lfl JOUE " 

F0RK3-1T08 

ONK8<K3'>GOSUB890, 900,910,920, 930,940,950.960 

P0KEP7+22 , 39 POKEP8+22 , P0KEP7+44, 40 P0KEP8*44 , 

GOSUB340 P0KEP7*22 . 38 P0KEP7*44, 32 

P7«P7*2 P8-P8*2 NEXTK3 FC*J7- I TO2000 

GOSU8I220 

PRINT-T 

F0PX«lTOe 

IFK7(X>«K8<X>TH£N1 700 

00101730 

NEXT C-OTO 1720 

PRINT"! 

P0KE78121 P0KE7828 POKE783.0 SVS65520 PRINT"CRONE" 

OOTO1740 

PrjKE781 21 P0KE782.8 P0KE783, SYS65520 PRINT"PERDU" 

FORT-1TO3000 NEXT 



PRINT-! Fl POUR REJOUER 
GETft* IFR*-""THEN1760 

IFRI-"«-THENPUN640 
OOT01766 

RESTORE 

DIM N(33),D<39> 

F0RJ-1T053 PERDN(J) NEXT 
F0PJ-1T039 : PERDDC J > NEXT 
RETURN 



POKE 198,0 




^SPECTRUM 

Suite de la page 21 




38-3S LET d = XNT IRND-Sl LET 
T iRNO»3.i LET b = INT iRNDtSl 
51B0 IF INKBV*-"S" THEN LET w= 
6. PAPER 6 PRINT hT <-V*6. 
.RT x-l.V'6." ".RT x-2.v*S. 



6: PRPER 6 PRINT 
iRT X-l,v-6." 


AT x .«-6." 
AT K-S.y-6, '* 


■ 
'..:■. 

. .-..; ■ 
313* 
3313 
3136 
lift 
3137 
3318 
3136 


IF 

IF 
IF 

IP 


INKCY«m"0 

U-27 THEN 
dsS AND u 

' = AND * 


THCN GO SUB 3 

LET y-*-6 

1 THEN GO sue 

■1 THEN GO 5UB 


IF 
IF 
IF 


t-1 RND K 
0=1 AND w 

r-a AND 4 


.1 THEN GO SUB 
•2 THEN GO SU8 
=2 THEN GO SUB 


IF 


b>0 AND '. 


'2 THEN GO SUB 



3149 ir 3=8 "NO w-3 THEN GO SUB 

Siis 

31*1 I- ("1 RNO -«3 THCN GO SUB 

31*2 IP Bsi hnD K*3 THEN GO SUB 

33 IB 

3200 GO TO 3079 

3285 POPER 1. INI 

16, "P" . LET H-2 

3206 PP.PER 1 PRINT ST 9,16, 
INK 2. PAPER 5 PRINT AT 12 , *». 

;;JB";0T 11,15; "Lid ".RT 10,16."D 

3207 LET w>3 RETURN 

3206 PAPEP 5. PRINT AT 12,15," 

",AT 11,15, " ".RT 10,15," 
LET va* RETUPN 

3303 PAPER 1 INK 2. PRINT RT 9, 
13, "P" LET aa2 RETURN 

3310 PAPER 1 PRINT AT 9,13," 
PAPER 5 INK 2 PRINT AT 12.9, ' 

JM".RT 11.9. Lifl",RT lB.ie."Q" 

3311 LET *-3 RETURN 

3312 PAPER 5 PRINT AT 12.9. 
-.AT 11,9, " ',RT 10.10. '' " LE 
T »■*; RETURN 

3313 PP.PER 1 INK 2 PRINT AT 9. 
19, "P" LET i*2 RETURN 

331* PAPER 1 PRINT AT 9.19, 

PAPeR 5 INK 2 PRINT RT 12,21, 
"JW",AT 11.21, "Lltl'-.RT 10.22. "0 

3315 LET 1.3 RETURN 

3316 PAPER 5 PAINT AT 12,21. ' 
",RT 11,21;" *',AT 10.22. " ' 

LET K-4 RETURN 

3500 IF V'a21 THEN LET V >21 

3501 LET er.cr-1 LET v.**8+ll 

3502 IF Cf>75 OR C ' -76 THEN GO S 
JB 3609 

3695 INK 2 PLOT v,70 DROU 0.16 

8EEP .005.0 
3510 PLOT OUEC l.v.70 ORRU OVER 
- 1,0, 18 

3512 IF v-9 AND i =3 THEN GO SUB 
3600 

3513 IF *-16 AND wO THEN GO SUB 
3650 

351* IF V=21 RNC 1*2 THEN GO 5UB 

3670 
3530 RETURN 

3500 PAPER 5 PRINT AT 12.9." 
".RT 11,9." ".AT 10.10,' " FO 
R i«l TO * 

3601 PRINT INK 0.RT 12. 10. "ST. A 
T 11,10, "OR" NEXT , LET *-l 

3602 PRINT AT 12,1a,-- ".AT 11,1 
Bj" '. LET IC«CC*1: RETURN 
3650 PRPER 5 PRINT RT 12.15. " 

".RT 11,15," "; AT 10.16, - ■■ 
FOR nl TO * 

3652 PRINT INK 0.RT 11.15, OR". A 
T 12.16, "SI" NEXT i 
3654 PRINT AT 12.16.' '.AT 11.1 
6. " LET . .1 
3d55 LET CC-CC+I RETURN 
3670 PAPER 5 PRINT RT 12,21.' 

",RT 11,21, ■' ".RT 10.22,"' " 

FOR i -1 TO 4 

3673 PRINT INK 0, AT 12.22, ST. A 
T 11.22. -OR- NEXT i 

3675 PRINT AT 12.22." " . RT 11,2 
2," LET Hal LET itMC*l RE 

TURN 



3710 PAPER 8 INK * PAINT AT 1, 

>*al." U" SEEP .01,9. NEXT fl 

3715 IF ut*l THEN GO TO 4,800 

3728 LET wt>««-l RETURN 

3600 FOR i-l TO 6 PRINT FLASH 1 

. INK 2. AT 1,19, cr.' " BEER 0.3 -- 

5 , 10 NEXT i : LET E ,- .73 RETURN 2* . 24 DATA 

3610 RETURN 

398.3 REM ■■•••.•••••••.>■.•••• 



. 12*. 64, 6*. 6* 



,66,66.66.69, 12 



RU 9. 



PLOT 150,96; DRRU -2,2 



4, 100.180,100 

98*0 DATA "i ". 16, 16. 16. 16.24.2*. 

" .*, 6. 6. 0.70, 78, 



BINT FlRSh 1. RT 

100 PRPL .. . 
INT RT 2,2, 



fi-. 



4028 INK 2 PPINT AT 4 

ScBBUtS'' '*'■■■ *. PRINT 

*5S» 3 N,V 6 PBINT RT 1 

HIRE I15SIDH D'D" B 
403S LET •■ .6 BEEP t .■ 
2/3.8 BEEP a'3.0 BEE^ i.u ' 
P 4*2/3,3 BEEP i.3.2 BEER 4 
3.2 BEEP 4/3.0 BEEP K2/3.0 



WT_ftt.i.8i"MT QE 

. ilL R 

SEEP 4* 



126 

984* DATA "l" ,66.66.72,68. 12*. 10 

8.188.180 DRTA " I. " , 6* . 64 . 6* , 64 . 

96.96,96, 12* 

23." 98*S DATA "■".126,186.106.106,10 

. 6,105,186,186. DATA "n " , 124, 66. 6 

TQ 8, 188 , 188 , 180 , 108 , 100 

ln 9052 DATA O" , 126.66,66 ,66.96.96 

.98.126 DRTR "P " . 62. 34 .34 .62 . 32 

90S4 DRTR fl" .126,66.66,65,66,12 

2,126.1 OATA "r- . 124.66.58.68. 1 

26.96,96,96 

9068 OATA "%■■ . 124,64 ,64. 124 .4,4. 

124,12* DATA "t . 126, 16,16.16.1 

6.24.24 24 DATA u " , 70 . 70 . 70 . 70 



_ 5EEP 
48*0 IF INKEVI-'O 
4050 IF INKEYJa-n 
4869 SO TO 4040 
4999 REM aa 



5880 GO SUB 9800 PRPER CLS 
5010 INK 5 PLOT 23.166 DRRU 28 
.0 DRRU 0,-39 DRAU -5. -IS ORR 
U -10,0 DRAU -5,15 DRRu 9,30 
5920 INK 2 PLOT 26,169. DRAU 9. 
-17 PLOT 30,160 DRAU 0,-23 PL 
OT 3*. 160 DRAU 0.-23 PLOT 30.1 
60 DRRU 8. -17 

5025 INK 4 PLOT 29.119 DRRU 9. 
DPRu -4,-20 DRRU 18.6 DPRu 
0.-15 DRRU -16.3: ORAu 5.-16 D 
RRU -12,0 

5030 DRAU 3.16 DRAU -16,-3 DRA 
U 0.15 DRRU 16,-6 DRAU -2,20 
50*8 INK 7 PPINT AT 1.15. -JPEB 
'!! -. INK 2, AT 3,6, 'GflrlCE B -PP. 

TTDB- L-KdHCllS" . '„ 

50*5 INK 6 PRINT AT 5.10, "fi EtE 

Sfill 3 NK 3 PRINT AT 7.9. TU ESI 

tS". INK S.RT 17.5 

5078 RESTORE 9500 
READ 4,6. BEEP . 
5198 IF INKEY«a 
5110 IF INKEY«a n 
5129 GO TO 5180 
5080 STOP 
5999 REM -- 



,T U itH5t»e B K 

FOR iai TO 45 
,-ie,b NEXT i 

THEN GO TO * 
THEN STOP 



. ,78.126.1:26 
3108 RETURN 
9113 STOP 
9199 REH a.aa.aa. a. *. a. aa 

a prtitnttuon a 

9208 BORDER PAPER INK 6 C 

LS 

2205 PLOT 47,143 DRAU 0.21 DRA 

U 15.0 DRAU 0.-18 DRAU -9,8 C 

CAU 0.-11 DRRU -6.0 PLOT 53.15 

■t ORAu 8,3 DRAU 3.0 DRAU 8.-3 

. DRRU -3.0 

9210 PLOT 66.143 DRRU 8.21 DRA 

U 17,8 DRRU 0,-21 DRAU -5,8 D 

RAU 0,10 DRAu -7.0 DRAU 0,-10 

DRAu -5.0 PLOT 71.157 DRAU 8. 
4 DRRu 7.8 DRRU 0.-* DRRU -7, 


9228 LET ii-.i: 

9221 PLOT it. 1*3 DRAU 0.15 ORR 
u -7,8 DRRU 0,6 ORRU 20,0. DPR 
U 0.-6 DRRU -7,0 DRRU 8.-15 D 
RAU -6,0 

2225 IF ata93 THEN LET a tall6 G 
TO 9221 

9227 PLOT 135.1*3. DRRU 8,21 DR 
AU 15,8 DRRU 0.-21 DRAU -15.0 

PLOT 148.148 DRRU 0.18. DRRU 5 
.0 DRAU 8,-10 DRAU -5,0 
9230 PLOT 156.143 DRRU 0.21: DR 
Au 5.0 ORRU 6.-11. DRRU 8.11: D 
RRU 5,0 DRRU 8.-21- DRRU -5,0 
DRRu -6.11 DRRU 8, -11 DRRU -5. 



9240 INK 2: PLOT 63,39 ORRU 0,3 
. DRRU 2,10. DRRU -3,0 DRRU -6. 
-10 DRRU -28,1: DRRU -2,2 DRRU 

-5,0: DRRU -2,-2 

9241 DRRU -2,0 DRRU -9,-3 ORRU 
0.-3 DRRU 9.-1 DRRU 10,0. DRR 

U 15,-9. ORAu 4,0: DRRU -6,9: — 
flu 5.0. DRRU 11,2 

9242 PLOT 13.36. DRRU -3,0: PLOT 
33,37: DRRU 13,0 PLOT 26,42: " 

RRU 8.0 

9450 Ink 6. PLOT 120,24: DRAU 20 
,0 PLOT 126,25: DRAU 0,3: DRRU 
-6,0. DRRU -7,2: DRAU 0,2 DRRU 

4,2. DRRU *.S DRRU 18.9 

9452 DRRu 3.-2 DRRU 2.0: ORAU 
.3 ORRU 3,0. DRRU 0.-2 DRRU 26 
.-3 DRRU 2,6. DRAU 3.0 DRRU B, 
-9 DRRU -26.-1. DRRU 0.-1 

9453 DRAu -8,0 ORRU 0,-4: ORRU 
0,3 DRRU -10,8 PLOT 136,40 DR 
RU 0.3 DRAU -25,0 DRAU SO , 

9454 PLOT 121,34 DRRU 7,0 DRRU 
0.3 DRRU -5,0 ORRU -2.-2: INK 

9*55 PLOT 210,32 ORRU 22,0 DRR 
U -11,-10,2. DRRU -3,0: DRAU -11 
,10,2 DRRU 5,36 DRRU 6.0. DRRU 

5,-14. ORAu -3,0 
S456 DRRU 0.-4: ORRU 2.-9 DRRU 
8,4 DRAU 3.0 DRRU 0.-4 DRRU - 
3,8 PLOT 226.68 DRRU 8.-10: DR 
AU 1,-5 

9457 PLOT 229.48 DRRU 2,-7 PLG 
T 212,48. DRRU 4,0 DRAU -2,0: D 
RRU 0.2 ORAU 0,-4 PLOT 214,50: 

ORRU 3,0 DRRU -1.0 DRAU 0,-2: 

DRRU 8,4 
9*69 FOR n-1 TO 389. NEXT n 
9*61 FOR n-1 TO 16: PRINT RT n *S 



,0, 



NEXT I 



iUilu^i'JfisKiri.rDHJfls^SK. 
L»FiL 1 Hti : " k,s!IUn5 ° *I 



»'«s! ( "fCife 1Mi " ,ul K 

'4J5.WN S^.eRINT RT afiig.." S..G 



coricifBi i.cfnc. a 

9000 REST0RE*98ll* l: F0R m *"l"T0*21 
READ It FOR i =0 TO 7 READ Q 
POKE uSR »i*i,C. NEXT i NEXT a 
9010 DATA "a" , 124. 188, 180. 13* . 18 
9,100,100,108 DATA b ' ,252, 132 , 
132 , 132 ,254 , 19*. 19*, 25* 
3025 DATA " c ' . 126 , 66 . 66 , 6* , 6* , 98 
.38. 126 DATA d ' , 12* .70.66,66 ,9 
3.99. 102 , 124 
9032 DATA t .124,64,64 .6*. 120, 6 



34 INK 7 PR 



5.^2.23. "I 
:nt AT 12 , 12 



■* LRK 

IfiBLEfi 

TfiBL 

tS^5*INK 5 PLOT 159,66: ORAU -6 
0.8 DRRU -5,7 DRAU 28,8 DRAu 
0,3 DRRU 18,9 DRAU 0.3 DRAU 5 
.8 DRRU 8,7: DRAU *,0 DRRU 0,- 
7 DRRU 2.0 

3236 DRRU 0,-2 DRAU 7,0 DRAU 
,-5. DRAu 17.0 DRRU 8,-5 PLOT 
185.96 DRRU 0,2 DRAU 3.0: DRAU 

8.-2 
9237 PLOT 105.99 DRRu -2,2. PLO 
T 150.95 ORRU 0,2 DRAU 3.0. DR 



I 

9456 RESTORE iv»u 
: RERD ».b BEEP a/ 
9*87 FOR ««1 TO S00 
URN 
9499 REH 



. ■! TO ■ 
B,b. NEXT l 
NEXT a: RET 



Uiiqu* dtbu I - 

9500 DRTA 2"9?7"6?2?-60"2?6?2,7, 

2,9.7,18.1,-68.5,16.1.-60.4,14,1 
, -60.3,9,2,6,2, -60,2,5,2,7.2,6,6 
.9,1. -60 .3,9,1, -68 ,3.7,1, -60 ,2,7 
.3,4.2,-68,2,11.2,13,2,11.3,14.3 
.9.2,-60,2,7.3,9,2,3,3,11,4,9,1, 
-68,2.2.2,2,2,9.1. -SO, 3, 9, 3, 2 

3609 REH -a-aa.aaaaa.a.aa 

*«nr«gittriatni> 

9990 SflUE -niton" LINE 1 ■> 



CRAZY OVER TAKER 7199 **** ETENDU 



Les fadas du joystick et de la Vitesse vont etre 
contents. 

Gauthier VASSEUR 





EUR Gauthier 



ir TI 99/4A BE 
CRAZY OVERTA) ER 



6 AVENUE DE L'OUCHE 



21000 DIJON 



T I AL I SATION ■■■ — ■■■■■■■ ■ ■■■■ 

iO CALL CLEAR 

70 1-0 is Qn— 4000 II V25— 20 II U30-30 

:! VOL-20 :: SON— 7 n KM7-.7 ;: A3-3 :: 

A2-2 l : GOTO 90 
BO AC-HIS-KM-PL 

90 CALL SCREENC):: CALL MAGNIFY <4) j : HI 
8-0 ll VIT— 100 

100 CALL CHARC9&.-7F7F7F7F0000000O000OO0 
OOOOOOOOOOFEFEFEFEOOOOOOOOOOOOOOOOOOOOOO 
00" 1 

110 CALL CHARdOB. "001013D4D2D9F2F5D1CAC 
109400B000044309S693628AE4A1 1 1OAO1298SD0 
00000") 

120 CALL CHARU12. "0000220A2704994B723C0 
90OOBOOOOOOOO0O40C028 1 0482290 AB 1 02B80000 
0") 

130 CALL CHARd 1 A, ••000000000000060104010 
0040000040000000400600040005000440000000 
000") 

140 CALL CHAR (104. "OOOOOOOOOOOOOOOOOOOOO 
O007F 7K 7F 7FOO00O0O0O0OOOOO0O000OO0OFEFEF 
EFE-) 

130 CALL CHAR(120."OOOOOOC7C7D2DFFDFDDFD 
2C7C7O0O0OOO0000O0O3A1 3FB3F3FFB 1 33AOOOOO 
000") 
140 CALL CHARU0O.-OOO000C7C7D2DFFFFFDFD 



2C7C700OOOO00OOOO0O3A13FBFFFFFB133AOO0O0 
000- ) 

170 FOR X=2 TO 8 :: CALL COLOR ( X . 16. 2) : : 
NEXT X !l CALL COLORC4.3.2): : CALL SCRE 



190 DISPLAY AT{2.7) : "CRAZY OVERTAKER" : TA 

B(7)i"™™™™«««"" tt DISPLAY AT(8.3 

) : "VOTRE BUT: ":TAB<3) : ■■ ■ ■■■■■■■■■ 

200 FOR SP-1 TO 4 : : CALL SPRITE <«SP. 1 20 

.SP«4, 23,236, 0.70) t i FOR TP-l TO 33 :: N 

EXT TP !! NEXT SP 

210 DISPLAY ATI 10.3) ! "PARCOURIR LE MAXIM 

UM DE": tTAB43M"KM SUR VOTRE BOLIDE ."i 

:TAB(3)l"LE TRAFIC EST DEMENT." 
220 DISPLAY AT(16. 3) : "ATTENTION: *:TAB<3> 
: »eBu=.«»~:TAB<3> : "TOUCHETTES ET BORD 
URES A": :TAB<3)i"V0S RISOUES ET PERILS. 

230 DISPLAY AT 122. 1 1 : "VOUS F-OUVE2 CASSER 

3 ENG1NS." 
240 DISPLAY AT (24. 5) ■ "«> APPUYE2 SUR F 
IRE>" II CALL KEY(l,R,B)ll FOR TP-l TO 6 
O :i NEXT TP :i DISPLAY AT(24.1):: FOR T 
P-l TO 60 
230 NEXT TP 

260 IF S-0 THEN 240 ELSE CALL DELSPRITE( 
ALL):: CALL CLEAR ll CALL COLOR (4, 16. 2) 
270 CALL DEBUT (AC. KM. HIS) I : CALL DEMAR 
2B0 REM" - ■■ — ■ ■ • »——— —- 
LA COURSE ■ ■ ■ ■ — ■■■ 

290 CALL CHOC(AC.KM.MIS.PL)ll CALL SOUND 
(OM. SON. VOL):: CALL CHOC (AC. KM. HIS. PL) : : 

Vl-RNDoV2S-V30 
300 CALL CHOC(AC.KM.HIS.PL) II AUT*RND*>A3 
»A2 

310 CALL CH0C(AC,Kt1.HIS,PL):: CALL MOTIO 
N(#AUT.Z.VI):: CALL CHOC'AC.KM.HIS.PL) : : 

KM-KH+PL+KM7 i: CALL CHOC (AC. KM, HIS, PL ) 
: i PL-Z : : SOTO 290 
320 REM- -■»■««— ■«—■-----« 



SUB DEBUT ;..=.....»««;, 

330 SUB DEBUT<AC.KM.HIS):: AO0 ■■ KM-0 
:: DISPLAY AT (3. 1 ) : US ING "SCORE=°a*«». # 

RECORD"i»»H.« i :KM.HIS 
340 DISPLAY AT (22. 19) : "CREDI T-" : 3-AC :: 
RANDOMIZE 

350 FOR 1-21 TO 24 j: CALL SPRITE (•! . 96. 
16.2.236.0.-I00.HI+4.1O4.16. 161.256.0. -I 
001 



DELSPRITE(t7) 
520 FOR 1=1 TO 3 :: CALL SOUND (450. 446, 3 
•I. -6. 29) : : CALL SOUND (450. 370, 3» I . -6, 30 
):: NEXT I 

530 REMi«™«»«= »= = ==«=»===*■= = = KILO 
METRAGE ATTEINT — ■■ ■— —■■»■— i 

540 AOAOl :: DISPLAY AT (22. 26) SI ZE ( 2) : 
5-AC :: CALL DELSPRI TE Ctt 1 ) : : DISPLAY AT ( 
3.7)SIZE(6):USING "*«»«.»" i ktri 
550 IF AC-3 THEN CALL DEMAR ■■ SUBEXIT 
560 REM» ==» = = ■=== = »--="—-« FIN 

DE LA PARTIE — — ■■ m»mwww 



360 FOR U-l TO 9 :: NEXT U 

370 NEXT I 

380 CALL S0UND<-4000.-7.20) 

390 FOR 1*2 TO 3 :: CALL SPRITE ( ftl , 100. I ="" 

NT(RND«12)*3.39»(I-2)*22. 236.0. INTtRND— 57 <" CALL DELSPRITE (ALL) : : IF KM<-HIS THE 

25)-30):i NEXT I :: SUBEND N s '° 

400 REM——————— SBO HIS-KM i: DISPLAY AT (3. 23) SIZE (6) : US 

SUB DEMAR ————— INC "MM.t'lHIB :: DISPLAY AT(3.7)SIZE( 

— . 6):USING "••••. tfiKrl :: DISPLAY AT(IO.B) 

410 SUB DEMAR I "RECORD BATTU" 

420 DISPLAY AT < 12. 3) I "<FIRE> POUR DEMARR S 9 © DISPLAY AT ( 12, 9) : "GAME OVER" n DISP 

ER" LAY AT(16,4):"<FIRE> POUR REJOUER" i: DI 

430 CALL KEY(l.R.S):: IF ROIB THEN CALL SPLAY AT(lB.6)i" <S> POUR ARRETER" 

S0UND(-40OO,-7.20) t : GOTO 430 ELSE CALL *>°0 CALL KEY(l.Z.P):: IF Z-18 THEN CALL 

SPRITE (•!. 120. 16,80.28)1! CALL S0UND(-4 CLEAR :: CALL DEBUT (AC. KM, HIS) i i CALL DE 

000.-7.20) MAR ■■■■ SUBEXIT 

440 DISPLAY AT(12.1):i SUBEND *'° FOR TP-l TO 60 I: NEXT TP || DISPLAY 

430 RB M" ■■■■■■■ "— ■■■-■■— ATU2.l)it FOR TP- 1 TO 60 ll NEXT TP 

SUB CHOC ■■ r &20 IF P-0 THEN 390 

— 630 CALL CLEAR it DISPLAY AT ( 12. 1 1 I "Ad R 
460 SUB CHOC(AC.K.M.HIS.PL)i: CALL DRIVE! EVOIR.A BIENTOT POUR"! l"D'AUTRES < < PHOM 
PL,Cl,C2)ll IF C1+C2-0 THEN SUBEXIT ENADES/>. . . "I :" ... CRAZY OVERTAKER. . . 
470 REM-— - =— — — AC " *> FOR Y- 1 TO 3O0 

CIDENT '•••■ ................. 640 NEXT Y ti CALL CLEAR ti END li BU8EN 

— D 

480 CALL MOTIDN(ttt,0,0) 63 ° REM— — — — — - 

490 CALL SOUND (-300. -6.1): j CALL POSITIO ^> B W*IVE ................. 

N(»1.U.P):: CALL SPRITE («1 . 109. 10. U.P. *6 
, 112,3, U. P. 17, 116, 12. U.P) it FOR TPS-1 TO 

30 t : NEXT TPS 
500 CALL S0UND(-5O0.-6. 1 ) : i CALL DELSPRI 
TE <•!>•.: FDR TPS-l TO 30 II NEXT TPS 
510 CALL S0UNDI9OO. -6. 1 ) : : CALL DELSPRIT 
EI#6):i FOR 1-1 JO 100 ii NEXT I n CALL 



660 SUB DRIVE(PL.C1.C2) t : CALL COINC(ALL 
.CI):: CALL JOYST ( 1 , 0, W) l : CALL MOTION<# 
l,-N-7,Q»7)t j CALL COINC (ALL, C2) i : PL -PL 
+Q».003 ii SUBEND # 



NUMERATION 



Tttsao 



Passionn6s de gymnastique cerebrate, devenez grace 
a ce programme, experts en changement de bases. 

Joseph SERUMS 
Mode d'emptoi : 

Quatre parties peuvent-Btre abordees successivement ou separe- 
ment : 

1) Explications preambles : comparaison du systeme decimal avec 
systeme binaires. 



2) Des exemples de conversion de nombres decimaux en nombres 
binaires. 

3) Des exercices d'entrainement de conversion de nombres deci- 
maux en nombres binaires (9 chiffres au pfus). 

4) Des exercices d'entrainement de conversion de nombres binaires 
(de 9 chiffres au plus) en nombres decimaux. 

Lors des exercices. un choix est propose pour augmenter eventuel- 
lement la difficult. 

Les erreurs soni immediatement signalees et corrtgees avec expli- 
cations. 




Pour IRS 81 rtofl. 1 i, 



SI ' Explicit ions MMTitio 



I aSiKL°43|iWSUIMi:CL£Mnji:CLS 

I PRINTMlBVLE CODE IIWIC - SVSTDC DE HJEMTION A IASE 2' 

I PRI NT 2382, " ww*#*#**«m* ##«*«it***ttt*4*iii»i«t»tf i 

I G0SUKW:FO«]Mr01IHilCIi:aS:GOSUt71M 
l asireiKTiia.'Mns ns caloas a l'ECoe* 

I PRlHTam,'ET DM6 LA VIE PMTIQUE,' 
1 PRINiai32,'N0US UTILISOHB ' 
I PRINTi27fl,'LE SYSTEM DECUW.' 

I PRWTI342. ' H HWHtMW 

I PfilMTKM.'LA IMCHTION DECln*L£ NOUS' 

I PRINTZW.'rEKT HE NEPfiESEKTER LES NOfOiEB WTURELS' 

I PRIHTUSI.'A L-A10E DE DU CMFTBES:|,l.:,3,*,5,6.7,e.r 

i ntiMnm, a LE •« occure m un o*iff« dans l'scsitwe" 

I rHINTJWJ.TJECIBAU: INDIQUE L'EIPOSAKI DE LA PUISSANCE Of" 

■ NIHTm7,'ll PAR LAQUELLE CE CHIFFfE EST IU.TIPLIE' 

• NLMfMiajsuiniiiCLS 

I niKT'ElBPLE!* 

i nw ■ 

I PR»fT: HUNT 'SOI T L£ NOTWE 3*2.176* 

I miNTtpftlNTML PEUT SE rJECOIVOSEI) EN UNE SUITE DE Si) TEMS 

S PPiKT: PRIST M. M * 4t.MI • i.Bt * IM * 71 » 4* 

■ 60SL«9r»:CLS:WINT'O*CUN DES TEMS DE CETTE SOIfC' 

■ PRINT'PEUT S'ECRIRE COtC UN PflOOUIT:* 

■ "*!-! -■- ;«;*!' 

■ PRlKTJZU.'M.tM -5 Z I IM.M -> 3 I 11' 

• rTMNTCS.'VliFMI'ITOMilCI.T 

t PRINTUM,' 4I.M -) 4 I Il.tM -> * I ir 

• F*»INTa3S3.'A';:FC«I<n02N:'CIT 

• PRINTB12,' 2.M -> 2 1 1.IN -) 2 I IV 

1 PFiINT**8i, , 3 , ;:FO«I = lTC)2f»:*n 

• niNTU*!,* IM -) II IM -> I I :f 
I PRiA*Taw« t -2* i jFORJ'J TOSHiMTXT 

• PRima748,- 7t -> 7 » 11 -> 7 i ir 
I PBINTJTD.'l'JtFvTI^lTOZIlJICIT 

« rHINT»996,' 4 -> 6 I 1 •> b I IB* 

>l niNT3E«i,*>';:ia.= ltM:6CiSUB , r3ai:CLS 

1 PRINTaS^.'LE SYSTQE IIHAIRE N'UTILISE QUE 2 CHIFFRES: ■ ft 



«(• rfiINT:M)lNT'2 UNITES SUFFISENT POUfi AVOIR 1 UNITE AU RANG SU 
PERIEUr 

*« eosurmraiasirtiNTasir, 

491 PRINT'LE RANG OCCUPE PAR LE OHFTTE I INDIQUE L'EIPOSANT 
Ml pniHT'DE LA PUISSANCE DE 2 QUI SERA CONS IDE REE* 
511 60SUlY»:SP=l;GOSUI4t»i;F(*: = lI()2il:NElT 

in nir/ra7ts,'ciUEU£s valeuis le cniffre i pourra-t-il avoir* 

531 PRINT'SELON LE RAM OCCUPE DAMS UN NOHM IINAIK DE 9 0H1FT 
REST* 

5*1 60SUrnN.'60SUM7l 

w • 

MS ' EimoIi ww 2 

»9 ■ 

551 «FSUli3f»:A=(»e01!i:IFA>«Tl€»5l 

Ml AK-AHFVI10RV-2TKN57I 

W! IFU>20RW-2WSU»*«I 

571 PWITT»I2,*90IT LE NOffME *A* A ECRIRE EN CODE 1IIWHE* 

581 FORhlT02MI:iCIT:Kt**t:2:i:iW^*« 

595 IFV=/»ro2lil 

56T G0SU15II1 

571 IFAIJGOSUmtl 

593 IFAOlDCICn 

611 Sf*=l:FOfiI=ITOlMI:iCIT:I>I-l 

7M 60SUIi3*«'PRIirT'676,*VOICI LE NTMRE •** DU SYSTTK DECINAL 

711 PRINT* E01IT EN CODE IINAIRE* 

721 C*-STRII«(('»7)tl,*-*):PfiINT»(**,5,C* 

73fj Fofli-iTo*m!ieniCLS 



:<m *HINT*a«I5ISSEI LE DEGRE DE DIFFICULTE:* 

Ifll PVlNTlPUNT'OESirCI-VOUS AVOIR LA POSSIIILIIE DE CONNUTTE, 

1921 PRINT AMES CHMUE CHIFFFC INOIQUE. LES UWIES' 
1931 PRINT'OUE VOLE EVE2 ENCORE COCER Bt IINAIRE'* 
19*1 PRINT 'OOISJSSE*:' 

l« PRINT' <1> POUR AVOIR CETTE P0SS1I1LITE" 

1961 PRINT* Q> POUR * PAS L'AVOIR* 

1971 «-W«m:IFJt."T>OI97l 

1972 IFJR-*l*0fUM*2*Tl«19«LSEI975 

1973 OStCOTOl-MI 



1m * 

1978 ' Ewrcion b 



2131 CO1-G0T02I2I 

2M • 

2IM ' Carrtctlat Itr diirtr* dt wutiw bMi 2 

21M ' 

mt Fon-iTotrMticn 

■ll PRIMTam, 'AVEC I UNITE AU HAM *'*,' 
3CI FMI-lTOIMircr 

30 PRiNT'ON C PEUT FAIRE AUCJNE UNITE AU MM 

3-M FMl-ITOllMilCTT 

3M PRINT-CETTE UNITE RESTE tKMC AU MM 'I'.' 

3HI FMI>lT02Ml!tCITiK>«l.:raiPrTK l ll 

3m M*H»4!M(-7iG0T0211-i 



s II -> b 



' Cotillon ft citoi« dtrouli 



•Jt du p 



733 ' Citou draulfatnt du n roir— w 

TH • 

7*1 PSINTDESIREI-VOUS UN AUTfC £»Bffl£ ** 
751 PRINT-VOOEI-VOUS PASSER AUI EXERCICES '* 
Tii PRINT'OU OESirCZ-VOUS TErttllCR »■ 

761 F0RI = lT05l|:ien:(L=t:li-l 

771 PRINTCH0I9ISSEI <1) POUR L'EIEBRE,' 

K PRINT* <2> POUR LES EIERCMS* 

783 PRINT' <3> POUR TERIIICR' 

m V*^IIIQ?rt:IfVt** , T1€N79l 
M !FV»-■l■V-liaS:S^4:RS■|:CC^:»T0*lll 
111 lFW*rv-i:7I=f:RS'|:-X=KaS:e0T0lirj« 
815 IFtfU'3*T)€NJ7ll 
B2I CLSI60T07*! 
631 ' 

IM PRINTQUE PI€FErej-«US:' 

111! miNTraiNT'TRANSforfCR QES NOMRES BINAIRES EN NO-OSES DEC 
INAUI <1>* 

!■» PRINT'OU TrwrSFOFfCR KS NOtORES DECirWJI EN MORES SINAI R 
ES C2>* 

1123 PRINT: PRINT'FAITES VOTRE 0(011: <1) OU <2>* 
1131 lf-I»E*t:IFB*:"TlCNII3i 
IM IFT»>'1'T>E)D99I 
IN !FTJ»= 1 2*I}CN19« 
IM aS:6OT0t-M 



19M IFK=#T>CNIL=<^: 

2M 1F2 , *1KLS1G0T03SM 

2M3 aS:K^:A^:CC^:SP=i:**:: = ZI.[:PHINTSI,'ITO('ZI 1 ';:60S 

UMM 

2111 A=R»(illi:]FA(*T*N2lll 

2113 KA-AiKMUiDD'l't-I 

2CI IFA/2<>IPfT(A/2ni€NR±iaSER»|i 

2123 IFCC=!TkEK2l32 

2131 PRINTail2,-ECRITU«E DU NDMHE JECIUV. 'A' EN CODE IIHAIRE:' 

■60T02KB 

2C2 PRINTI312,'ECRITUE DU NOMJRE DECINAL 'KA' EN CODE IINAIRE: 

2133 PRlNTaM,:IFCC*IAW0D*lT)EN2n2 

2137 IFCC-l**OJI**l*T>eMrt*3 

2KB IFCC-lA«Jt'*2*t>EN2IM 

2M INrUT'OUa SEM LE DETtUER OflFFRE DE DROITEU OU I'iCiSOTO 

2KB 

2K3 PRINT-V0ULEZ-V0U5 C0WH1TRE LES (MITES D1SP0NI1LES' 

2M PRINT'AU MM *VV 

2133 PRINT-CHOISISSEZ <l> POUR 001, <2) POUR NON* 

2B7 Sf»I-«EYIsIFSf*"TI<iefB7 

2M IFS$=*rnCM)=]:PRINT*,Aj:BOSUlc3fR|i60T(32iei 

2171 IFTi^*2'T«C>i2:80SUl63l|:G0T02M 

2173 SOSUt63M:PRINTaS74,:60T02t*3 

7J8I PRlNTa5I2,*ECRITulE DU NOTOfE OECINAi *W EN CODE (tllAIRE: 

2IB2 PRlNTa768,*0UEL SEM LE CHIFFRE *U MM *I":INPUTC 

2M5 D0=#:iFL=BT*N21«ELSE2f9l 

2191 PRINTa9?l,'EI*JEUR'':FM]'IT03M:iCIT:PRINTaf21,' 

2193 DC"l:KX=M|:w.=*.:SP=l:G0Sij15lll 

2197 60T02I15 

2IM PRINTa921,*EIACT'*:FORI»lT0MI:PEIT:PRINTa92l,' 

2113 PRINT*", * ■;:»:nT*.»: 

2111 IC«-7:Z"M-COi:MINT(A/2) 

2115 IFAJ(-IT)CIC1)4ELSE2I2I 

2116 1-7. -2 

2119C»-STTIIIW(l2«7)M,*-*):PRINTaK»72,»;:FMIMT02ftll:i€)IT:a 
S:6OT019M 

ffMTterMM 



3W ' 

33M CLSiPRIIITCHR»l23ia*6l, 'VOTRE SOME: •JLT 
3H3 ZZ^:F0R] = lI02fM!NEIT:aS 

3311 IFIL(trHlNTF»IlLE, MIS VOUS POUVEI RECOHEXCEfl POUR MELI 
OREl VOTRE aTE*iFORI-lT02Mi , CIT:aS:WT0332l 

3312 IFIL>-4Wa<BPIim'TIWMIL SATITAISANT, fWIS V0U5 POUVEI 
AlfilOrCI VOTK COTE'!F0Rl>lT0iaM:-CITiCLSi6OTg332l 

331* IFIL>7THENniNT'TRES KN TRAVAIL" :FORI = lT02HI:*JT:aS 
3321 PMNTfAITES VOTRE CWIIt* 



3331 PRINT -PRINT <1> 

3341 PRINT' <2> 

3S3U PRINT <3> 

3341 U»>]l«rniIFUI-*'rHBa34l 

3371 ffWl'lMiSOTOJTII 

3381 IFUU'2*'>2!V<4:Sf>-|iCLS:'iOT033l 

IHt IFU*-*3-U-3:a=l;I>C.liaS:6OT0I« 

34H aSi«0T0332l 

3411 ' 

J7W aSiPRWOCHRH23>a33*,'TEllU'C' 



POUR TEWIICRi' 

POUR fEVOIB LM EIEMPLE,' 
POUR CFAIIE DES EXERCICES. ' 



J72I FORI-lTOSMilCntaSiEW 



37*1 ' IiblMu dn nnwncM dt 2 



3731 ' 
4M IM17 

411 FORTR-irO8:F0flT*lTOI3:SETII,Yl:*ITv 

*•» I>I-l*ilCITTR 

*a !*«•:«= 125 

*M F0RTR>ITC4:l>RIKTaK,P-:PRIHtaK+43,2l 

*fBIK-*-7!Prftl!l€ITTR 

*MI IFSP-1T1EMETURN 

*I7I F0RI<IT0I27:SEKI.ll)t-€XII 

•JM KOlefPM 

AM F0RTR-lT09!PRINT8*i,2tP! 

MM K*-7:P-P*i:iI^2ORU=3OflU'20R , *:3T>EN>Cl(m:'J0T0*nl 

*1I3 F0RI>1T02«:«IT:ICXTTII 

Mil IFV-1G0T033I 

*ii3 iFn<ieoi04in 

Suite page 26 



I A QLINIQUE THOMSON T07,TO7 70,MO5. 

DU DOCTEUR ^ "° 
SPOUNTZ 



Un docteur demoniaque vous a pris pour cobaye dans 
son sinistra etablissement. En ce lieu ou I'horreur 
guette chacun de vos pas, la quete dun antidote et la 
recherche de la sortie vous reservent bien des angois- 



J.Yves LE FRIEC 



A la demande. QUE FAITES-VOUS ? Vous pouvez taper sort ; 
1 Lettre : 




H.E.S ou O pour ies directions (le NORD est indique en haut a 

gauche) 

V pour connaltre le vocabulaire disponible (seuiement a la demande 

ci-dessus) 

A pour abandon, destine aux Itches el aux suicidaires. 

3 Lettres : 

Pour une action; tapez Ies 3 premieres lettres du verbe * un es- 
pace 4 Ies 3 premieres lettres de lobjet ex : MON ESC pour "mon- 
ter escalier'.Pour une couleur Ies 3 premieres lettres de celle-ci : 
Ex : DOR pour "doree". 

En ligne 21020. LE FRE(O) qui indique en haut a gauche la me- 
moire disponible. peut-etre supprimee apres verification. 



A suivre 

En raison de la longueur 
mhabituetle du listing, 
nous passerons ce pro- 
gramme en deux fois 




tee defgr*<7>*0, 0,0, 0,0.60,24, 24 

tie DEFGR«(0)-126. 186.126.66,66, 12b, 126, 
126;80*<3)»GR*i8)*CHR*(ll)*CHR*(8>+GR«<7 

126 DEFGR*<9>«255.255,255,255,0,0,6,0 

130 DEFGR*(10>«255. 1 27, 63. 31, 15, ?, 3, 1 

140 DEFGR*(Il)-0, 1,3,7,15, 31,63, 127 

150 DEFGR* < 12 )»255, 231, 195, 195, 129,129.1 

29,9 

lc0 DEFGR*(13)«0, 0.0, 255.6,51. 0,264 

I""0 DEFGR* ( 14 )«6, 3 1.6, 6, 235. 235. 255, 6 

I $6 ['EFCP*' 15 >=0,0, 15.31,63.63, 127, 255: D 

EFGR*( 16 ) -0,9, 240, 248, 252, 252, 254, 255! DE 

FGP*U7)«235, 127.63,63,31, 15,6,0iDEFGRS< 

13,-255.254,252,252.248,240.0,0 

155 DEFGR*(19)*0,4,2,255,2,4,0,8:DEFGR*< 

29>*8,32,64,255.64.32,e,0:DEFGR*<21>«16, 

56.34, 16,16, 16, 16, I6:DEFGR<(22 )*I6. 16,16 

. 16, 16,84,56,16 

186 B*<1 J-GR«120)* , N-!B»(2)-GRK22)*"»I-: 

BS < 7 >"GR*( 19 J +*N':B*i 4 >»GR« (2 1 >»"N" 

190 RR*U)»"I»POSf ibl«-:RR«'2>"'i*llons d 

or>c i ' ' •iRR«<3>»*Rei»etez. . J'ai du »»1 coi 

prendre 1 ' " 

209 RESTORE40000iFORU-lTO6:READRlt<U>:NE 
XTM 

210 FOR H-l TO li:READ AC«.W)sNEXT U 
£20 FOR W-l TO 13:READ 0B*(W)SMEXT U 
230 FOP H«l TO 21READ CC*(H)tNEXT u 
2A9 SO*' 1>«LEFT*(AC*U),3> + " "*LEFT*(0B« 
•.9), 3) 

250 SQ*'2>"LEFT*(ACf<2),3>+* "+LEFT*(0B* 
M 2 > , 3 :■ 

268 SQ*'3)«LEFT«(AC*(3>,3)+' "♦LEFT*iOB* 

<ie>,3> 

279 S0«<4)«LEFTJ(AC*<4),3)+- "+LEFTX0B* 
(6).3) 

269 SO»'5)-LEFT«<AC«<3),3>+' -+LEFTXOB* 
(11), 3) 

290 S0«i:6>-LEFT»i'flCt<6),3>*- "+LEFT»<OB* 
<1>,3> 
300 S0*(7>»LEFT*(AC*(7>,3>+" "+LEFT»<OB« 

♦LEFT*' 06* 

+LEFTJ.0B* 

•♦LEFT* COB 



310 SO*<B>«LEFT«<AC«' B)*3) 
<3>,J) 

320 S0*'9;«LEFTt(AC*(9),3) 



O^F 


/;lW--a'I..<.-W 












1 REMM***«*****4**4 «*■•*•«•** 

2 REM** J-Y LE FPIEC M 

3 PEM*« VOUS INVITE DANS • • 

4 REM»t LA CLINIOiJE DU •• 

5 REM** DOCTEUP SPOUNZ •• 

6 REM** SUP T07-H6K.M05 •• 

7 REM** OU TO7-70 •• 


10 C 
35 E 


6 

»■ 


,,23 





27 GOSUB 35909 

28 GOTO 508 

30 DIM AC*ai>,0B* (I3),S0*(17> 

35 DEFGR*t0)«85. 170.85, 170,85, 179,85, 170 

40 C>EFGR*<I)"12*,68, 124. 16, 16, 28,24, 28: C 

L*«GR*(1) 

j0 DEFGR*<2)«3.7, 14,28,56, 112,224, 192 

60. DEFCR*<3>-60,60,0,60,60.60.60.60:BR(e 

gp*«;3j 

70 DEFGR«(4)»60,24,60,60.36.36,60,60*BO* 

<1 )-GR*<4) 

30 CEFGR*<5)*255.69.60,255.255,255.195. 1 

95 



338 S0*< 10>«LEFTi'AC*(9>,3)+" 

*'3>,3) 

340 SOU II >MLEFT»tAC*U0>,3> + * -+LEFT*(0 

B*<2>,3) 

350 S0*< 12"LEFT«>AC»(10>,3." H '♦LEFTKO 

B*<7>,3) 

360 S0f<13-«LEFT*<AC*< 10), 3-*" **LEFT*<0 

B*< 11), 3) 

7 T SOf i 14>»LE r T«(AC*(16>,3>+" "+LEFT*'0 

~*(13),3) 

50 SOX 15>«LEFT«(AC»c U),3> + " "»LEFT*<0 
_ * 1 . . 3 '■ 

399 SOS' 16;-LEFT*(rtC*(ll),3>+" -+LEFT*(0 
B*<4>,3) 

4*0 S0*< 17)«LEFTf <AC*< ll),3>+" ■♦LEFT*(0 
B*C8>,3> 

410 PF»-CHR*'.52 '+CHR*(71<+CHR*t72 • 
440 RETURN 
500 PM4:VU«4iPP**-L72PPPP" 

505 CLS:SCREEM9.6,0:IFP*21ANDL21*0THENBO 
XF<0,6)-<39, 19)GR*<6),0,4 

506 IFP=5ANDL5=0THENBOXF(0,0'--t320, 159), 
BiGOTOSBB 

510 COSUB21090:GOSUB10090 

520 ON G COSUB 21845.21800. .21200.22690 

530 ON F GOSUB 21350.21300,22500,21700,2 

2600 

540 ON t> GOSUB 21145,21180,22400,21900,2 

2600 

550 IF Olv>0 THEN ON 01 G0SU8 24000,2410 

0,24200,24300,24400.24508.24600.24700,24 

800,24900 

552 IFP=l7QR. P=5ANDl5=1hNDVU=2>THENG0SUB 

21 300: LOCATE 15, 4: COLOR,. 1 : PRINT"ASCENSEU 

P ":C0L0R,,1 

5T4 IFP=5ANDVU*3ttNDL5*ITHENGOSU821800iLO 

ChTE8.4:PRINT"ASCENSEUR _ 

530 GOSUB20000:HA-INT<RNDt3>+i:COLOR 0,6 

SLOCATE 0.22MNPUT-OUE FAITES-VOUS"; REPS 

396 IFLENiREP*'> = lTHENIFREP<*"V"THENG0T02 

T>900ELSEIFREP*»-A-THEN27000 

600 IFLEN'REPI^lANC'REPt'.^E'ANDREP*' >"0 

•^NDREP«; *S"ANDREPfO-N"THENG0SUB 20200 

:GOTO580 

(IB ON P GOTO -38200,30300. .30508.30600, 

30760. 30809. 30900. 31 000. 31 100.., 31400, 31 

*Jtf0. 3 1606. 31 700. 31 308. 31 900. 32800. 32 100. 



P GOSUB , 10200, 10300,, 10589, 186 
, 10808, 10900, 11000, 11100,,, 11400 
. 11500, 11600, 11 -00, 11800, 11990, 12000, 121 
88, 12200,12308 
10020 G=VAL'HID*rPS, 1, 1>) 
10030 F«VAL'MID*fPI,2, 1 > < 
10040 D-VAL<MID*CPI.3, D) 
10850 RETURN 

10208 O1=0:ON VU GOTO 10218.10228,10230 
10210 P»«*110"!RETURN 
10220 P*»-183-:RETURN 
10230 P*="831":PETURN 
10300 01=2:ON VU GOTO 10310.10320 
1 03 18 IFP3=1THENP«='100-:RETURNELSEPS="2 
00":RETURN 

10320 P*«"001-:RETURN 

10500 IF L5«0 THEN P<= ■ 080" : RETURN ELSE 
01*7iON VU GOTO ,10510,10520.10530 
10510 P*-*100':PETURN 
10520 P*--091-:RETURN 
10570 P*-"8ll":RETURN 

19608 O1*0:ON VU GOTO 10610. 10620, , 10630 
10610 P*-'101*:PETURN 
10620 Pi-"811-:RETUPN 
10630 P»--110-:RETURN 

:O709 O1=0:ON VU GOTO ,10710,10720,10730 
;j>'ie PI = -1I0":PETURN 
10720 P«-"101":RETUPN 
10"30 P«»-011":PETURN 
10800 O1«0:P«« J 028":RETURN 
10900 O1-0:P(-"008':RETURN 
•1008 OI=6:P*-"080':RETURN 
i:i80 ON VU GOTO , 11110,, 11120 
:1110 Ol-0:P«--018-:RETURN 
111SB Ol«9tP<«-000-:RETURN 
11400 O1«0:ON VU GOTO 11410.11420,11430, 

11440 

11410 P*»"l 10-iRETURN 
ll4i:0 P*--ie4 # iRETURN 
11430 P*«-641-:RETURN 

11440 P*-"41 1-IRETUPN 
:i500 Ol-l:Pf0E0-lRETURN 
11600 OI-3:P*«"002 - tRETURM 
11700 0!«5i XO«20:YO* I8i P*« "080-: RETURN 
11800 01*4:0N VU GOTO ,.11818,11820 
11810 XO«7:YO»16:P*--100-JRETURN 
11828 X0»29:Y0»1 9: Pf= "001 ": RETURN 
11900 01-2I0N VU GOTO 11918,, 11928 
11910 IFP19-lTHENP*s"O10":RETURNELSEP*=" 
800-tRETURN 
11929 P*-"B10-:RETURN 
12000 01-5C0N VU COTO12010, .,12820 
12010 XO«20:YO= 18i P*=-001": RETURN 
12020 XO-7iYO>16:PS-'190*:RETURN 
12100 IF MIR-0THENO1-8ELSEO1=10 
12105 ON VU GOTO .12110,12120,12140 
12110 1FP21»1THENP«»"185 - :RETURNELSEP(-' 
205'tRETURN 
12120 P*-*B50':RETURN 

12140 O1-6:IFP21=1THENP*-"501":RETUPNELS 
EP*«"502":RETURN 
12200 O1-3:P«--000":RETURN 
12380 Ol"8iP*»"200":RETURN 
20000 BOXF<0,168>-<319, 199), 6: RETURN 
28200 GOSUB20000:LOCATE0,2i:PPINTRRf<HA> 
iPLAYPPJtRETURN 
21080 BOX(0,0>-<319, 159). 
21020 COLOR 0:LINE<0,B>-(80, 15)iLlNE-^24 
0. 15 ,> SLIME-' 320.0 >:LIME<0, I59>- i 80. 95 ■ : L 
INE-C240,95)tLIME-<318, 159) : LINE(88, 16)- 
'80.95):LIME<240, 16 ■-(240, 95) : LOCATE0.0: 
PPlNT8f<VU)(FRE«0>!RETURW 
21100 IFL21*0ANCP»21THENLINEt.264, H5>-(2 
64.40>,0!LIME-v287,40),0:LINE-(287, 135 i, 
0sRETUPNELSEY-115:FORX«264TO287!LINE'::,4 
0>-'X,Y),4«Y«Y*. 8: NEXTXS RETURN 
2U45 L I ME<287, 135>- (287,40s 8i LINE-' 264 
.40 ,0:Y«102:FORX=248TO263:LINE«X,40'-fX 
., i,4*Y*Y*.8!NE>;T>::RETURN 
21200 COLOR 0sLINE<32,134)-.32,40):LINE- 
55. 40i: LIME-' 55, 114,: LINE-' 47, 114): LINE 
-' 32,1£6)!LINE<47, 114>--47. 186-'SLlNE-'32 
. 113 >:LINEt47, 106)-' 39, 106> :LINE-< 32. 110 

■:LINEf39, 106)-' 39,98 >iLINE-<32, 102):LIN 
t- 39,98)-' 32,98 >s RETURN 
1L300 BOXF<144,40:-' I75.95'.4:B0X' M3.39 

-< 176,96 ',0:RETURN 
21750 BOXFU 12.40>-. 143. 95 ' . 4! B0X« 144, 40 

i-< 176,96),0:RETURN 

21408 FORI-0TO31SLINE' 1"5-I . 40 >-< 175-1 ,9 
5 . -7: LINE'. 144-1,40/-. 144-1, 95 > . 4: NEXT I ! 
RETURN 

11500 Y»I35:F0P X=237 TO 264 STEP -KLIN 
[X,4»'-(X,V).-7 



21530 IF S<272 THEN 21540 ELSE LINE'Oi-2 

4',48)-< <X-24>. ' Y-22J.-.4 

21540 NEXT >;:L1NE'287.135 , '-«287,40.',0:LI 

NE-<264.40>,0 

21550 RETURN 

21700 COLOR0:BOXi 144. 40J-U75. 95 * : LIME' 1 

44.95)-( 151,91 > : LINE-' 175.91 -SLINE-: 151.9 

1 ■-' 151.87):LINE-< 175,87) 

21740 LINE' 151.67 >-- 159,83 ^LINE-' 175.93 

21750 LIMEt 159* 83)-' 159. 79 -SLIME-' 175.79 

21760 LINEC 159. 79 >-■ 167. 75): LINE-' 175,75 

21 "0 LINEf 167,75)-' 167, 71 > t LINE-' 175, 71 

2:780 LINE U 67, 71 ) -Cl 73. 67 >s RETURN 

1:300 IFP=21ANDL21=0THENLINEi:59, 113'-' 59 

. 40., 0: LINE- (35. 40 .8: LINE-' 35, 131 .'.0:RE 

TURN 

21810 Y»113JFOP)i-5?TO35STEP-iaiNEi>:,40) 

-' X, Y - , 4 : Y«Y*. 8 1 NEXTXs RETURN 

21845 LINE'59,113)-'59,40),O:LlNE-'35.40 

.0:Y«1311FORX-35TO8STEP-1!LINE'X,40'-(X 
. ■ > r 41Y«Y*.8sNEXTXsRETUPN 
21900 COLOR e:LINE(264,ll4)-(264,40>:LIN 
E-(287,40):LINE-(287, 134) 
21920 LINE <287, 126)-(272, 1 l4):LINE-f 264, 
114) 

21930 LINE(287. H8)-(272, 186){LINE-i.272, 
114) 

21948 LINEC287, I12>-(288, 186):L1NE-1272, 
166) 

21950 LINE'287, 184i-(280,98)iLINE-<280, 1 
06) 

2 1968 LINE ( 287, 98 ) -< 280, 98 ) : RETURN 
22800 I-01FORX-59TO35STEP -1 ILINE(X,48)- 
'X.l 13*1 >,-7iLINE<X-24, 40+1 )-(X-24, 131*1 

.4II«I*.9INEXTXIL1NE<35,40>-(59,40),0:L 
I NE- (59. 11 3), 01 RETURN 
22289 FORI -0TO13:LINE< 128+1, 143-1 )-< 187- 

1, 143-1 >,ei NEXT I ■ RETURN 

23300 80XF(12B,4e>-< 191, 100), 4> BOXF< 96, 4 
9 '-'127, iee),0tBOXF(192,40)-<223,100),B: 
FORI>0TO3tBOXF( 128, 48+ I*2B)-< 191, 42+1*20 
,-3:NEXTIiBOX<136,82>-(183,88),-3»RETUR 
h 

22400 LINE '.£87, 1 33 ) - (287, 48X, 0: L INE-<264 
,40>,0tLINE-C264,114),0tLINE(264,114)-C2 
70,114),0iLINE-<287, 127),0ILINE(274, 1 16) 
-'279, 116),etLINE-(287, 123),0:LIME(282,1 
13)-(287, U8),0:RETURN 

22500 B0X(127,39)-(192, 101 ), 0iBOXF( 128,4 
0'-' 191,100), -7: LINE (128, 160)- (160, 88), 
: LINE- (191, I00).0:LlNE-(182,90),8iLINE-( 
172,93),-0iLINE(191,93)-(185,93),-i:RETU 

22600 IFVU-2THENXF«262ELSEXF«5fl 

22610 COLOR0: IFFE-8THENREST0RE22658ELSE2 
2626 

22611 F0RY-6T05:READA,B,C,E 

22612 IFVU»2THENLIME(XF+A,B>-(XF+C,E)ELS 
ELIME(XF-A,B1-(XF-C,E) 

22614 NEXTYIRETURN 

22620 R£ST0RE22666:F0RY=6T09:READA,B,C,E 

22636 IFVU-2THENLIME(XF+A,B)-(XF+C,E>ELS 

ELINE<XF-A,B)-<XF-C,E) 

22646 NEXTYIRETURN 

22650 DATA6, 46, 25, 40, 23, 40, 23, 88, 25, 88,0 

,76,0,76,6,46,12,46,12,82,6,58,25,64 

22660 DATA-16, 40, 4 1 , 40, 4 1 , 48, 4 1 , 92, 4 1 , 92 

■-16,72,-16,72,-16,48,0,40,0,76,25,46,25 

.88.-8,46,-8,74,32,46,32,96,-16,56,0,57, 

41,66,25,64 

22808 8OX(13e,40)-(19e,76),e: 1FFE-8THENL 

INE' 160, 40 )-<l 60,78), 0: LINE '130, 55) -(190 

,55S0SRETURMELSEBOX<100,48)-U36,70),e: 

BOX(220,40)-(190,70),0:LINE(I15,40)-(115 

.78;',e:LINE(ie0,53)-<13e,55),6SLINE<190, 

55 ■-■,22e,53),0iLINE(203,46)-<2e3,76),etR 

ETURN 

23000 GOSU825590: IFREP«»'N-THEN3I710ELSE 

IFREP*OSO*(13)THEMGOSUB20200:GOTO23000 

23010 B0XFU44,46>-< 175, 95),0:BOXF< 1 12,4 

0>-< 143, 95), 4 

23020 IFMA=1THENGOSUB25500: IFREP*-*N'THE 

N3l710ELSEIFREP*-SO*(10)THENP=P-I2:VU-4: 

GOTO505ELSEGOSUB20200: GOTO23028 

23030 GOSUB28000:LOCATE0,22:PRINT"I1 n'« 

ft P*s 1«> '"JPLAYPPI 

27040 GOSUB25300 

23050 IFP»17ANDREP«O-N P THENGOSUB28200:G 

A SUIVRE... 
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4220 HOME i VTAB 13: MTAB 32i PRIMT 

•A H I T Y V I I L E' 
4230 FOR J " 1 TO 10 IX - PEEK 

(S) ♦ PEEK <S) - PEEK (S) • 
PEEK (S) - PEEK <S)i NEXT 



4300 0* - ' prtitti RETURN pour 

4310 * I :A = 10: VTAB 24 
4320 « = a • D: IF A ■ 3 OR A > 

48 THEN D ■ - 
4330 HTAB A: PRINT G* ; 
4333 IF A » 23 THEN FOR 1 ■ TO 

900: NEXT 1 
4340 FOR J » I TO 5: NEXT J 
4350 IF PEEK ( - 14384) =• 141 THEN 

4400 



4340 GOTO 4320 
4400 POKE - 14348,0 
4403 HOME : VTAB 8: PRINT TABC 
28)i'Pour rxtcuttr un* actio 

4410 VTAB 10; PRINT TAB( 32);* 

Prtastz It niMcro' 
4420 VTAB 12: PRINT TAB( 23);* 



4430 « l:A - 10: VTAB 24 
4440 A - A ♦ 0: IF A - 3 OR A ■ 
48 THEN D = - D 



4430 HTAB A: PRINT Gt ; 

4440 IF A ■ 23 THEN FOR I - TO 

900: NEXT I 
4470 FOR J * 1 TO 3: NEXT J 
44B0 IF PEEK < - 14384) - 141 THEN 

4540 
4490 GOTO 4440 
4300 POKE - 14348,0 
4303 HOME : VTAB 8: PRINT TAB* 

31>j"Pour savoir eomblfn" 
4310 VTAB 10: PRINT TAB( 29);' 

D, pitctt uout posttdvi* 
4320 VTAB 12: PRINT TAB( 35) i" 



4530 D - 1:A - 10: VTAB 24 
4340 A ■ A ♦ Or IF A - 3 OR A « 

48 THEN D - - D 
4350 HTAB A: PRINT G» ; 
4540 IF A « 23 THEN FOR 1 - TO 

900: NEXT I 
4570 FOR J « 1 TO 5: NEXT J 
43B0 IF PEEK ' - 14384) - 141 THEN 

4400 
4390 GOTO 4340 

4400 INVERSE : POKE - 14348,0: 
RETURN 



TOM ET CHERIE 



Pour que sa CHERIE bien aimee puisse prendre un 
bain, ce cher TOM doit tour a tour s'improviser acro- 
bate, plombier et artificier. Que ne ferait-on pas pour 
I'amour d'une belle ? 



SUITE DUN' 76 



0510 DAT A32, 7, 3 1,63, 127, 124,249,2 
240,240,240,248, 124, 127 , 63, 31 , 7 

224,248,252,254,62,31, 15, 15,15, 15 

31,62,254,252,248,224 

0320 DATA32,96,240,240,248, 120, 12 
124,60,60,62,30,31,31, IS, 15,7,6, 
, 15,31,30,30,62,60,60, 124, 120,24 
248,240,240,224 

0330 DATA32.63, 1 27, 127 , 127, 120, 12 
27, 127, 127,127, 120, 120,120, 120, 

20,40,240,248,252,254,30,30,254,2 



J-P MARIN 




40000 UP0KE7O2B,209 

40002 AM-AM+1 : IFAM<5THEN40020 

40005 NM-NM+2: IM-NM+NI*4 

40010 PUTSPRITE28, (10,113-IMI , ; 



tHl , 



32, 



2,248, 240,240, 120, 1 
0340 DATA32,3,7,63, 
,7,7,7, 192,224,232, 
29, 192,224, 128, 128 
0550 DATA30, ,, ,7,7, 
, , 160,240,224, 192, , 
0560 DATA32, ,,,,6< 
it.i,,,,,,,, ,128,1 
0370 DATA2.8.120 
0380 DATA32,3,7,63, , 

,1, 192,224,: 
4 , 224 , 224 , 224 , 224 , 224 
0390 0ATA24, , , ,5,1! 
,,,, ,224,224,224, I 1 
0600 DATA27, ,,,,,, 
, , , ,2,4, , 16,32,64, 
0610 DATA2, 16,30 
0650 DATA20, , , ,8, , 
0660 DATA20, , ,28,54, 



9920 ' 

9995 PSETIXC.YC) 

20000 LINE-STEP(7 

20010 PRESETIXC+7 

20020 PRESET (XC + 6 



60,60,24 
,2,3,7,7,: 

, , , 128, 121 



5 ) , CC , BF 

yc+5) ,CA 

fC*2> ,cr:preseti 



4002*0 TN-TN+1: IFTN< >2THENRETURN 

40030 TN=0 

40040 NE-NE+1 

40050 PSETI16.NE) , l:DRAW'r55" 

40060 IFNE-3BTHENINTERVALDFF:G0T04 

1000 

40065 IFTR-1THENPSET (XD-EC, 191 I ,4: 

EC-EC + 4:CE-EC*2:DRAWT-cal ■ : RETURN 

40070 IFTR»0THENNB=NB+l:PSETI20Q, 1 

BO-NBI , 4:DRAWr39" : IFNB=15THENINTE 

RVALOFF: GOT045000 

40080 RETURN 

40900 ' 

40910 ' 4in Ht tableau 

40920 ' 

.000 STRIGIJ)0FF 

F0RT=lT0100O0:NEXT 

020 RV=RV~16: IFRV--26THEN42000 

030 G0T042500 

41910 ' -fin dr j«U 
41920 ■ 

42000 IFSC>HSTHENHS*SC:CQL0R4:GO5U 

B8100 

42005 SC=0 

42007 FORT=1T040:X«=INKEY*:NEXT 

42010 PSETI40, 194) , l:CQL0R9 

42020 0PEN"grp; -ASttl 

42030 PRINTH1, -[JJ pour joutr' 

42033 CLOSE 

42040 SWAPK,0K:G0SUB60400 



XC+6, YC+3) , CR: PRESET IXC+5, YC +4) , CR 

20030 RETURN 

20035 PSETIXC.YC) 

20040 LINE-STEP(7,3> ,CC,BF 

20050 PRESET (XC,YC+3> , CA 

20060 PRESET IXC +1, YC*3) , CR: PRESET I 

XC»2, YC + 4) , CR'i PRESET (XC+3, YC*4) , CR 

20070 RETURN 

20073 PSETIXC.VC) 

20080 LINE-STEP(7,3> ,CC,BF 

20090 PRESETIXC, YC) ,CA 

20100 PRESET <XC*1 ,YC*2) ,CR; PRESET I 

XC*2, YC+1) ,CR: PRESET (XC*3,YC* II , CR 

201 lO RETURN 

20115 PSETIXC.VC) 

ZO1Z0 LINE-STEPI7.S) ,CC,BF 

20130 PRESET(XC+7,VC) , CA 

20140 PRESET <XC+4,VC+1) , CR: PRESET! 

>:C*5,VC*1) , CR: PRESET I XC + 6,YC*2) ,CR 

; PRESETIXC +6, VC+3) , CR 

20130 RETURN 

20135 PSETIXC.VC) 

20160 LIN6-5TEP(7,7) .CC.BF 

20170 PRESETIXC, YC) , CA: PRESET I XC * 7 

,YC) ,CA1 PRESET IXC + 7, YC + 7) ,CA:PRESE 

T(XC,YC*7) ,CA 

20180 PRESET (XC+3, YC + 1 I , CR: PRESET I 

XC*4,YC*1) , CR: PRESET (XC+5.YC+1) , CR 

20190 RETURN 

20193 P5ET tXC.YC) 

20200 LINE-STEPI7.7) ,CC,BF 

20210 PRESETIXC, YC) , CA: PRESET ( XC + 7 

,VC) ,CA: PRESET IXC +7, YC + 7) ,CA:PRESE 

T1XC.YC+7) ,CA 

20220 PRESET (XC+6, YC +2) , CR: PRESET 1 

XC+6, YC+3 I ,CR: PRESET (XC+6, YC+4 I , CR 

20230 RETURN 

39910 • 

39920 ' sp on interval 

39930 ■ 



<:gdsub60i2o 

i;G05UB60120 

:G0SU860120 

I0SUB60120 



42043 CG=6: 

42046 CG=8: 

42047 CG=9! 

42048 CG-8: 

42049 F0RT= 

42050 IFINKEY«--j ■ORINKEY*-- J "THEN 
SWAPK , OK ! GOSUB60400 : RV-38 ! N 1 -0 : GOT 
04250O 

42033 NEXT 

42060 G0TD42045 

42470 ' 

42480 ' initialisation 

42490 ' 

42300 VP0KE6933, INTIHS/233) 

42310 VP0KE69S9,HS-INTlHS/253)*233 

42515 VP0KE6963.J 



42900 ■ 

42910 ' uplotion 

42920 ' 

43000 STRIGIJIOFF 

43002 PUTSPRITE2B, (0,209) 
4300S COLORS! PSET (0,70) 

43010 DRAW-r3dlr4dir4dlr2dlr2dlrld 

Irldlrld3rld3rld2rldlr3dlr3dlr4ulr 

2ulr2Li2rlu3rlu412rlu411u511u411u41 

Iu3i-lu2rlulr2ulr4ulr4u2r4ulr3ulr3u 

Irlu3rlu5rlu411u4llulllull3u216ul 1 

5u2dllluU3uU2ul! lull Iu511u2rlu2r 

Iu2r2ulr2ulr3u2r2ulr2ulrlu2rlu2" 

43020 PAINTIO,0) 

43023 PUTSPRITE31, 10,209) 

43030 C0L0Rll:PSET<O,50) 

43040 DRAWd9ulrlUilr2ulr2ulr3dlr3d 

Ir2dlrld4nd2r3dlr4ulrlulrlu3rlu41 

lu4Uu311u4rlulr3ulr4ulrlulrlu411u 

311ull2ul 14ulllull3u311u611u4rlu3r 

Iu4llu213ull4dl 1 Id 1 1 2d4 1 ld31 ldl 1 4u 

lllulllul 13' 

43050 PAINT (0,20) 

43060 C0L0Rl:PSET(3,46J 

43070 DRAW"u3r2f lgl lirlfiaiglllbm* 

5, -5e0d3+lr2elulhlulhlllbm+-3, -2*0* 

3rl »lu lh3btn + 5, +O»0h lllhl 1 lrlelu21 1 

+ lr2f lrl" 

43080 G0T041000 

44900 ' 

44910 ' dmin da Chlnt 

44920 ' 

45000 STRIGIJIOFF 

43001 FGRX-1TD97 

45002 CB-CB+1: IFCB-10 THENCB=4 

43003 PSETI2O0, 165) , CB: LINE-STEP (3 
9, 14) ,CB, BF 

43004 NEXT 

45003 sc-sc+1000:gosub9000 
45007 fort-itoiooo:next 

45010 f0rt-0t031: putspritet, (0,209 

) :next 

43020 clsicolorio 

43033 .'mvO 
43040 PSET ( 

4hlu2alu2»lu2elu3alr 

I«4u2*6rlelr6ul+ 2rlf 

r2+2i-lf4r2a292dtg3F2d3*3r 

gld5gld4gldli Ig2r4d3120u2 



INEI24, 1511 



(223, ( 



• NI» 



430SO 1 



131 



43080 C0L0R6:DRAW 



6 VP0KE6967 

7 VP0KE697I, 
B VP0KE6975.NI 
9 VP0KE6979.RV+5O 

42520 CLEAR 

42322 DEFINTJ,X,N,A,T,C,G,S,R,K,0, 

42525 HS-VPEEK I 6955 ) *255+ YPEEK (693 



42332 NI-VPEEK16973) 

42533 RU-VPEEK 16979) -30 

42340 X(1)=-15:Y(1)-70:XI2)=0:v(2) 

--21 :X 13) =107! Y (3) *-2l:X (41-214: VI 

4)--21:X(5)-23:Y(3l-191:X(6)»133: Y 

16) -191 :XI7)-23S:Y(7) =100: X IB) -240 



45100 C0LOR9:PSETIB2,8i: 



2alu4h3u2I2hU3gll2gl 



IB 1,63) 





45210 DRAM-r68+lrl+lr2f 


42560 CC=7: AM=I0:CB-3:CS-10:CR-15 


f2rltlr2f2rltli-4*lr2l36 


42570 FOR T =OT03I : PUTSPRITET, (0, 209 


Il2hlllhlllhlllhlllhll2 


i : NEXT 


3d It Idl!52ulelu2*lu6el- 


42580 CLSIC0L0R5 


45220 PAINT(70,B3) 


42590 G0TO990 


45230 C0LOR8:PSET(70,95 



,+3g3dl 

43120 C0LOR9:PSET 
45130 DRAW"f2r3elhll3" 
45140 C0L0R8:PSETI93,60> 

•0bm+4, +01 lalllu411ul 
albm-6,+2r2bm+5, + 0r2" 
43160 C0L0R10:PSET(77,32) 

>2r 2f lbnl + 5, +0alr2f 2" 
El, (76,50) ,5,60 
45190 PUT5PRITE2, (76,30) , 15,61 
45192 IFNI-0THEN47000 
43195 ' 
45200 C0L0R6:P5ET(60,B2) 



hll2h2g2dlgldU 



45250 PSET1145,95) 

45260 DRAW 14M14hl 13hll2gl" 

45265 IFNI-1THEN47000 

43270 'niw2 

43280 C0L0R6:PSET (57,96) 

43290 DRAWr32+ Idlgldl) Id2gld3f ldl 

f Ibfti + 3, +0ulelul»lulelule6r39tlr2tl 

rlflr3*6rld2rldl*l 1 63bm-5, *0 156elu 

I«3u3rlu5" 

45300 PAINT (80, 100 ); PAINT ( 140, 100) 

45305 PUTSPRITE3, (104,94) ,9,63 

45306 PUTSPRITE4, (81, 104) ,9,62 
45310 CDLORBIPSET (64, 109) 

4532* DRAWul»lulalul»lu2elu2alulb 

m + 23, +0d4f Id4gld21 ldlbm+3, -5rldlr2 

dlr4ulr2e2bm+18, *0dlflbm+4,+lrl*lr 

l»lr2bm+6, -8+ 2d lbm+2 , -3rl* lr3dlr 1+ 

2r2*lrlf lrl*lrl+4d2" 

43323 IFNI-2THEN47000 

45330 'mv3 

45340 C0L0R6:PSET(31, 110) 

45350 DRAU-r58d4r2u3elr-67 + 6dl*ldl + 

2rl-f2116hllirrlglllh215hllllhll3hll 

2hIllh2ulhlulbi.-2, ♦0dlg2d7gldlbm+l 

O, +0rl»lri2elr4+lr2<lr3bm-4,*0110bin 

-13,+OI61olhlulh2ulh2ulr.lulhlulbm- 

2, -Odlgld29ldlg2dlg4U4alul«2ul»2u 

45360 PAINT 150, 120 J : PAINT I 90 , 120) : 
PAINT 1150, 112) : PAINT I 151, 122) 
45370 C0L0RB:PSET<63, 110) 
45380 DRAWglbm»12, +0r2d lr2d 1 r 2d Ir 
6ulr2ulrlulrlulrlbtn + ie,*4r2dll2dlr 
ldl I ld211hlf5bm + 54, - 1 3+2d3+ ld4btn*3 
,+0aIu2hlu3Kl + 2dlrlt2rl*lrlt3i-3ulh 
311hlllh3ulf lr2f lrlf2rl<3- 
45385 IFNI=3THEN47000 

45395 C0L0R15: PSET (176, 151) 

45397 0RAW"r2«lr2»lrlff3r-2a4ul4rl2» 
lrlo3r3+lrla2rl»2u2»2rl+2d32143" 

45398 PAINTI213, 143) 
45400 C0L0R6IPSETI73, 124) 

45-410 DRAW "r61gld2r 1*1 r2elr2«l r24f 

Ir4*lr5elulrl7tlrH2rl-f5dHldlfldl- 

U19hBilh4bm-20,-Ill391dlgldlgl2rl 

2e7ule7- 

45420 PAINT (43, 130) : PAINT I 150, 130) 

45430 C0L0R8:PSETI 105, 127) 

45440 DRAW 1 lu2r2bm + 7, - Idlr 1 + lr 1*1 

r7f Ir7elbm-B, *212dll2dl I2dl 12glllg 

21 Id lgl llbm-7,»01 lbm + 53,-3«lrle2p5 

bm+5, +112g212gll2bm+0, -llf 2bjn+13, ♦ 

0*lr3+lrlf2r2tlrldlrldlrlt3rl*lr3b 

m-2,-6h2ulh2bm-3, +lr.3!lgl 12hll3dl' 

45442 IFNI=4THEN47000 

43443 'nivS 

45450 C0L0R6:PSETI8B, 138) 

45460 DRAW'flrl* lr 1 f 4d2+ 1 d 1 * 3r 32*1 

rlelrlelr3elrl*2rl»lrl*Irl*lrl«3r 1 

elrlbm+3, +0r3dlr2dlr2dlt IrSdlrBalr 

5Blr3Blr-3elr3elr2+lrltlrlalullldlI 

lull41bm-9, +0166- 

45470 PAINT I 120, 143) 1 PAINT I 1 75, 140 

454B0 C0L0RB:P5ET ( 104, 138) 

45490 DRAW-r5bm+90, +0r2" 

45500 C0L0R15:PSET(24, 135) 

45510 DRAW"r2«lrl+lr2*lr3flr3<lr4« 

Ir2dltld2f2r3elr3d2r3d2r2*2r3*lr3f 

ld2r4dlr6!3Bol5- 

45520 PAINTI30, 143) 

45330 C0L0R5:PSET 133, 141 ) 

45540 DRAWTlf 2d3bm + ll, +0»lr4" 

45550 PSET I 192, 147) 

45560 DRAWr2f 2bm+10, -lrlelrl*2r4e 

2L.IeTu2bm-6, -3u3»2ul" 



47010 C0L0R2:PSET<14,72) 

47020 DRAWT5dlr2t Id2rld7H 

*lrl91alrle2ulalu71»lulalrlalr5f2d 

2g213d77gldlgl llglI203hll Ihlulhlu 

713hZu2»l" 

47030 PAINTI100, 138) 

47040 F0RX=61T0I37STEP96 

47045 C0L0R2 

47050 PSETIX.161) 

4 7060 DRAW"*lr2«llrl*llr2'F2d2gild 

+Ild2g212hlll lgl 1 12h2u2»l lulhl lu2 

47070 PAINTIX+1, 161) 

47080 C0LOR12:PSET I X+ 11, 177) :DRAW 

<2bm*5, -5b2bm-2, +3c3rldl I 1* 

47100 NEXT 

47110 NI=NI»i: IFNI>3THENNI=5 

47120 FORT-1T01000:NEXT 

47130 WPOKE 16259,0: VPOKE1 6290,0 : VP 

OKE 1629 1,0 

47140 F0RT«1TD300:NEXT 

47150 yPOKE 16239, 9 : UPOKE 16290, 29 :V 

PDKE16291.54 

49900 ' 

49910 ' pstita inuiiqut 

499ZO • 

49990 PLAY-vlO" 

30000 REST0RE30100 

50010 F0RM-1T03B 

50013 IFPLAY(0)*-1THEN50015 

50020 READD%,N*,LX 

30025 PLAY"tl60o=o*l l=i%ixn»! - 

50030 NEXT 

50032 PLAY"" 

50033 F0RT-1T05000:NEXT 
30040 G0T042500 

50095 ' 

50096 ' ditii pour musiqua 

30100 DATA4,»,5,4,c, 11, 4, d, 11,4,. 

, 11,4^,5,4,9,9,3,9,5 

1,4,^,3,3,1 

1,3, a, 11, 3, b, 3, 4,a, 9 

50200 DATA3,a,5,3,f+,ll 

,ll,3,g+,ll,3,a 

,3,g+,3,3,b,5,4 

B,5,4,d,5,4,c,3 



i,5,3, 



3,9*1 



,3,9*: 



60010 ' mp a-f-fichagv gami 

60020 ' 

60100 SOUNDO.O: SOUND 1,0 

60110 GOT060220 

60120 F0RT-1T07 

60130 PUTSPRITET, (X(T) ,Y 



60140 


NEXT 


60145 


PUTSPRITE8, (XI 8) ,Y(8) ) ,C6, 


60150 


RETURN 


60400 


S0UND7,62:SOUND13,9:SOUND8 


6:SOUND0,O:S0UNDll . 0: SOUND 12. SO 


604O5 


P--K 


60410 


F0RS-1T013 


60420 


S0UND1, 16-S 


60430 


Xll)-X(l 1 -P 


60440 


X(2)-X(2)-P: Y(2)"Y(2I-P 


60430 


Y(3)"Y(3)-P 


60460 


X(4)=X(4)+P:V(4)»V(4)-P 


60470 


X(5)hXIS)-P:Y(5)=YI5) fP 


60480 


Y(6)-Y(6) +P 


60490 


X(7)=XI7) +P 


6030O 


XIB)=XI8)+P:Y(B)-Y(8)*P 


60310 


P=P-K 


60520 


G0SUB60120 


60530 


NEXT 


60540 


S0UND12, 12 


6O550 


RETURN 




V ATARI 

Giiifo Ho la nana I 



Suite de la page 8 




2232 REM GfiKDE OUUE.RT POUR 2 DRIUES, 

2231 RED *********K**********X ****** 

2260 IF INFILEOOUTPILE OR DRUSSCO" TM 

EN CLOSE *2 

?300 0UT(-ILE=0UTFILE--1 

2310 IF DUTIND<INDEX THEN 2030 

3000 REH 

3010 IF INFIL£>FILES THEN 4000 

3020 IF DRU2«="0" THEN 1308 

3021 ? :? ■' INSEREZ LE DISK SDURC 

3022 ? " FUI5 TAPE? S T ft R t- 

3023 IF PEEK(53279]<>6 THEN 3023 
3030 GOTO 1300 

4000 REH *****"******************** 
4002 RE" * PROTECTION 0E5 FICHIERS * 

4810 TRAP 21050 :FOR 1=1 TO FILES :IF LOCK 
«CI,I)="*" THEN 4020=NEXT I :GOTO 5000 
4020 IF INDF.X=I THEN ? "DISK DE DESTINAT- 



ION" ; :INPUT P.S 

4025 PRINT 

4030 FOR J-l TO FILES 

4040 IF LOCK*CJ, Jl=" " THEN 4100 

0050 FILE*=NfiriES*[J*il-10,J*lJ] 

4060 ? "PROTECTION: " ;FILE* 

4070 GOSUB 10000 

4075 FILE*(2,2)=STR*tDN2) 

4080 XIO 35, «1 ,0,0,FILE* 

4100 NEXT J 

■5000 REM ****************** 

^002 REH * -OPIE TERHINEE * 

5004 REH ****************** 

^005 ? :? 

5010 1 "FIN DE LA- COPIE." 

5020 FOR T=! TO 100 

5030 SETCOLQR 2,T, T:SETCOLOR 4,T,I 

5040 NEXT T 

5045 FOR TM Tc 500 :NEXT T 

5050 RUN 

10000 REn *** 

10010 TMps=FIL£S 

10020 FILE*="D l" 

10030 FOR 1=1 TO 8 

10040 ir rnp*n*u-" then 10100 

10050 FILfc.S(LENLFIL£*J-n = rMP*CI,Il 

10060 NEXT I 

10100 FILE*tLEN£FILE«)*l)=' h ." 

10110 FILE«(LEN[FILE*)»1)=TMP*C3, 11) 

18128 RETURN 

! 1000 R£") t** 

1 1010 POKE 850,7 

11020 I = A.DR[BUF*CINDExn 

11030 POKE 852,I-2S6*INTCI.'2561:PDKE 853 



.INTCI/2563 

11048 I=BUFLEN*1-INDEX 

11045 I-125*INTCI'1253 

11050 POKE a56,I-256*INTCI'256J :POKE 857 

■ INUI/256J 

11060 I=USRCftDRCCIO*n 

11070 I=PEEKC8561+256*PEEKCB57) 

11875 ISTfiT!=P£EKCB5n:IF ISTfiT>l P.NO 1ST 

HT0136 THEN RETURN 

1)080 LENGCINFILEl-LENGCINFILEl'I 

11090 IN0EX=INOEXtI 

11118 RETURN 

12000 REH *** 

1201G POKE 866, 1 1 

12020 I = A.DRCBUF«C0UTIND1J 

12030 POKE 868,I-256*INTtI^256J =POKE 863 

,INTCI'256) 

12040 I=LENG(OUTFILE) 

12850 POKE B?2,I-2S6*INTCI'256):P0KE 873 

■INTtI^256D 

12060 I=USR(ADRCCI02*)3 

12070 IF PEEKCB67)>1 THEN ? "ERREUR D«NS 

l'ECRITURE " ;ISTfiT:END 
12068 OUTIND=OUTIN0tLENG(0UTFILE) 
12030 RETURN 
20080 REd *** 

20020 FILEN0=-1 :FILE*=" I I I I I I I I I I M " 
20030 FOR 1=1 TO FILES 
20040 IF USED(I)<>0 THEN 28900 
20050 IF FILEKN«nES«CI*ll-ie,I*ll) THEN 

20300 
20060 FILE*=Nflf1ES«tI*l 1-10,1*1! 1 
28070 FILENO=I 
20900 NEXT I 



20310 RETURN 

21000 REM ********************** 

21001 REM * PROBLEHE/DRIUE ONI * 

21002 RE" ********************** 
21005 GRAPHICS 18 
21010 POSITION 6,1 
21020 PRINT Mer'PROBLEnE 1 ' 
21030 POSITION 2,6 

21040 PRINT *5i"SUR DISK-ORIUE " ;DN1 
21050 FOR T>] TO 300 =NEXT T 
21068 RUN 

22000 REn *************** 

22001 REH * INFORMATION * 

22002 REM *************** 

22003 GRAPHICS 0:POKE 752,1 

22004 SETCOLOR 4 , 0, :SETCOLOR 2,0,0 
22085 ? " INSERE? LP, SOURCE CANS LE DRIU 
£ " iDNl 

22010 ? "LA DESTINATION DANS LE DRIUE 

DN2;" PUIS," 

22020 POSITION 10,4 

22030 ? "TAPE? START" 

22040 IF PEEK(53279K>6 THEN 22040 

22050 GOTO I [10 

22100 REM ********************** 

22110 REn * PROBLEnE'ORIUE 0N2 * 

22120 REn ********************** 

22130 GRAPHICS 18 

22140 POSITION 6,4 

22150 PRINT tlbiTROBLEHE" 

22150 POSITION 2,6 

22170 PRINT »6;"SUR DISK DRIUE " ;DN2 

221B0 FOR T=l TO 300:NEXT T 

22190 RUN 



PUISSANCE 4 



Pour ceux qui commencent a se lasser des jeux 
d'adresse, voici un programme qui va leur permettre de 
cogiter ferme pour dominer leur ordinateur. 



William WALSCHAERTS. 



Mode d'emploi dans le programme. 



3 'PROG i PUISSANCE 4 
5 ' Pour AMSTRAD CPC 464 

7 ' AUTEUR i Ualschurts WillUm F 
EVRIER 1985 

13 ' 

15 v INITIALISATION 

1? CLEAR 'ON BREBK GOSUB 279 

19 SYMBOL RFTER 91'DEFINT H-D.F-Z 

21 SYMBOL 93,24,24,24,24,24,24,24, 

24: SYMBOL 95,8,0,6,255,255,0,8,0:8 

YMBOL 252.24,24,36,36,66,90,161,16 

1- SYMBOL 253,161,153.66,66,36,36,2 

4.24 SYMBOL 254,126,126,129,129,12 

9, 157, 137, 137: SYMBOL 255 , 137, 137, 1 

69,145,129,129,126,126 

23 SYMBOL 91,24,24.24,255,253,24,2 
4,24:DIM BC200) 

24 INK 0,1 

25 DATA 119,106,95,89,88,71 
31 ' BOUCLE PR I Id PALE 

35 ' 

37 ' PRESENTATION 

39 SCP=0 ' SJ0=8 : BORDER ' MODE 1 ' PAP 

ER PEN 3:PRINT" ** PIIISS 

RNCE **":PRINT' INK 3.6,24'FOR 1 = 1 

08 TO 128 STEP 1.5'0RIG1N 1*55.208 
'DRAU I. 118 'NEXT 'FOR 1=200 TO 285' 
ORIGIN 178,1'DRHU 130,0'NEXT I 

41 FOR 1=250 TO 255'ORIGIN 1,220'D 

RRW -15, -30 'NEXT 

43 PEN l'LOCHTE 4,23'PRINT" 



''LOCATE 4,25'PRINT"CoP»ri9ht ":CH 

R»C164>|" U*Uchj.trt». U. FEV 83 " 1 

43 LOCATE 2,14'PRINT STRING«C40,21 

0)i 'PRINT" APPuyez sur ", 'PEN 3'P 

RINT"<ENTER>"i 'PEN 1 'PRINT" Pour c 

oron«nc«r. " 'PRINT STRING»C40,208) 

47 GOSUB 299 

49 ENV 1,188',3,1 ENT 1 , 100.2, 2' A=0 

31 IF A=0 THEN R«l 20 1 SOUND 1.200,1 

18,1.1,1 ELSE R-R-l 

33 R«-INKEY»'IF R»-"" OR R»>=" " T 

HEN 31 

55 ' ENTREE PflRRMETRES JEUX 

57 INK 3M'CLS'B»= LOCATE 1.10'P 

RIHT-OUEL EST VOTRE PRENOM ??"'LOC 

RTE 13,12'PRINT CHR*C 143 ) 'LOCHTE 1 

,12'GR=148 

59 R«=INKEY*'GR=GR XOR 15 'PRINT CH 

R»CGR>JCHR»C8>J IF R»."» THEN 59 

61 Rt-UPPER«< R« ) ' IF <R«<" " RND FlS 

C(R«)OI3) THEN 39 ELSE IF ASCCR«> 

= 13 THEN 65 ELSE IF CR«>"2" RND AS 

CCR»X>127> THEN 59 ELSE IF ASCC P» 

)=127 RND LEN<B«;'>0 THEN B*=LEFT*C 

B».LEN(B»>-1):PRINT CHR*C8';" °;C 

HR»<8^iCHR«8>J 'GOTO 39 

63 IF LENCB«»10 THEN PRINT CHR*C 7 

)J 'GOTO 59 ELSE B»"B*+R» 'PRINT PIG 

HT»CB»,1>; 'GOTO 59 

65 CLS' BORDER 0'INK 3,1'PRPER 3'CL 

S'LOCATE l.SPRINT"> VOICI MES PIO 

NS ' ")CHR»<252:J'PRINT TFB<22)lCH 



R«< 253) 'PRINT 1 PRINT" > VOICI LES S'O 
TRES ' "jCHR»C 254; 'PR I NT TRB< 22).'C 
HR»C 255 > 

67 PRINT'PRINT STRING»C40,210> E=u 
'PRINT"** NIVERU t 1 J. 3.1" 'PEN l'PR 
INT'PRINT" 1 J«u, moder-es" 'PRI 
NT" 2 Jeij. ttof-nsif 'PRINT" 3 
In. d'*tt*"ue" PRINT'PRINT STRI 
NG»C40,210> 
69 PRINT-SCORE 1 CPC I 

"iB*'PRINT THB< 18 >l SCPl TA6C 24); " ! 
" J TABC 30 » SJO 
71 R»»INKEY»'IF R»="" OR R*< " 1" OR 

R»>"3" THEN 71 ELSE E-VHLC A*:.' IF 
E=3 THEN E-8.3 
73 INK 3,6 

73 MODE 0'INK 13.9'PRPER 15 N1HD0 
W •1,1,20,22,25'PBPEP (tl,5'B0RDER 
15 

77 ' 

79 ' CRDRE 

81 • 

83 CLS'CLS »1'PEN 0'FOR N=l TO 18 
STEP 3L0CRTE 2,N'PRINT" C_C_L_C-C 
_C_C.C ".''FOR 1 = 1 TO 2'PRINT" ] 3 

J) 3 D ] ] ] "; NEXT I,N 

85 FOR 1=1 TO 2'PRINT" 

"'NEXT 1PRINT TABC4>;"1 2 3 

4 5 6 7" 
87 Q=42'G=8 

89 FOR J=l TO 7 ' H< J+90 >=6 ' NEXT J'F 
OR 1 = 1 TO 6'ACI + 100:>=7'NEXT I 
91 FOR 1 = 1 TO 6'FOR J=l TO ?'RXI*9 
+J)=-1'NEXT J, I 

93 FOR 1=0 TO 7 AC 1*9 >=-2' AC 1*9+8 > 
=-2 ' NEXT I ' FOR J=0 TO 8 ' PIC J >=-2 1 HC 
63+J )=-2 ' NEXT J 
95 IF FLG=0 THEN ZJ2=IHTCRND*2 )' IF 

ZJ2>1 THEN 95 
97 IF FLG=0 THEN FLG»1 ELSE ZJ2-CZ 
J2=l >+l 
99 IF ZJ2=1 THEN 2-1 'GOTO 103 ELSE 

IF Z=0 THEN Z»2'G0T0 101 
101 J-4'GOTO 119 

103 CLS »l'PRINT»l,"En quell* Colo 
nne jouez vous ? "i 'GOSUB 299 
185 R1-INKEY»'IF fi».'"' OR R»<«i" o 
R RS>"7" THEN 105 ELSE J"VHLCR»> 
187 IF ACJ+90>=8 THEN 103 
189 CLS #1 
111 A=J 

113 Z=l' GOSUB 147 

115 IF G=l THEN PRINTttl," BR 
RVO ! VOUS RVEZ GAGNE I ! " ' GOS 
UB 285 'SJO-SJO+1' GOTO 127 
117 GOSUB 163 
119 Z»0' GOSUB 147 
121 IF G=l THEN PRINT#1," AH RH 

AH !! J'fll GHGNE Lfl PRRTIE" G 
OSUB 285 'FOR J=l TO 288 'NEXT J'SCP 
"SCP+l'PRINTil,"J» wous donrie votr 
e revanche, OK . . . ?" ' GOTO 129 
123 IF 0O8 THEN 183 
125 PRINTH1" BIEN JOUE ! ! 




AMSTRAD 




NOUS SOMMES A EGRLITE. . . " ' E 
NT 1,28,3,5'FOR J=l TO 4 ' SOUND 1,5 
0.58,18,0,1 'NEXT J'FOR J-l TO 2008 
'NEXT J 

127 PRINTK1,"UNE RUTRE PRRTIE ???" 
129 R»=INKEY*'IF R»="" OR CUPPER*' 
R»X>"0" AND UPPER*CR»K>"N"> THEN 

129 
131 MODE 1IF UPPER»CR»)""0" THEN 
GOTO 65 
133 GOTO 39 

135 RESTORE'FOR NUL=1 TO I'K=C2*J) 
+2L=CHUL*2>+CNUL-1> 
137 LOCATE K.L'IF Z-0 THEN INK 14, 
3'PEN 14. PRINT CHR»C 252>i 'LOCATE K 
,L+1 'PRINT CHR»C 253 ) ; ' GOTO 141 
139 INK 8,5'PEN 8'PRINT CHR«C254)i 

LOCATE K.L+1'PRINT CHR»C 255)J 'GOT 

141 
141 ' 

143 RERD MUS 'SOUND 1..MUS, 10' FOR XY 

= 1 TO 150'NEXT XY'IF NUL<1 THEN LO 

CRTE K.L'PRINT" " 1 < LOCATE K.L+1'PR 

INT" ") 

145 NEXT NUL' RETURN 

147 ' DEBUT CHLCULS 

149 I=ACJ+99> GOSUB 1 35 ' AC AC J+90 >* 

9+J>«Z'' AFFICHAGE DU PION 

131 R=ACJ+90>'S"J 

153 AC AC J+90 >+ 1 00 >=RC AC J+90 >+ 1 00 >- 

1 ' AC J+90 >=AC J+90 >-l 
155 Q=B-1 

157 IF Z=0 THEN RETURN 

159 ' 

161 11=0 ' 0=0 ' N=4 ' GOSUB 237'IF D-B T 

HEN G=0' RETURN 

163 G=l 'RETURN 

165 H=4'S=1'0=2'M=45 

167 R=HCS+90)'IF R=8 THEN 175 

169 AC R*9+S )=8 ' GOSUB 237 

171 IF D=8 THEN ACR*9*S >=-l ' GOTO 1 

75 

173 J=S'G=1 'RETURN 

175 S=S+1'IF S<8 THEN 167 

177 n=4 -S.-1 

179 R=ACS+98>IF R=0 THEN 187 

181 RCR*9+S)=1. GOSUB 237 

183 IF D=8 THEN AC R*9+S)=- 1 .GOTO 1 

87 

185 J=S : G-0 : RETURN 

187 S-S+1:IF S<8 THEN 179 

189 FOR J=lll TO 117'ACJ>=8'HEy.T J 

191 N=3'S=1 

193 R=ACS+90>' IF P=0 THEN 199 

195 AC R*9+S>=0' GOSUB 237 

197 ACS+110)=D/E'ACR*9+S)=-1 

199 S-S+l' IF SO THEN 193 

201 N=3'S=1 

203 R=ACS+90>'IF P=0 THEN 289 

205 AC R*9+S)=l GOSUB 237 

207 AC 3+ 1 1 >=HC S+ 1 1 >+D*E : RC R*9+3 ' 

—1 

209 S=S+1:IF S<8 THEN 283 

211 N=3'S=1 



=P+1' 1=1+1 




V TRS 80 

Suite de ia page 23 




Wee ' fUiwnownt 



IFA=lSOa/BA3Be:6OTO30W 

S0SUB63W :FORI= IT05f«i NEH 

PRIKTaKK.'AUEC 'A- UNITES AU DANS T,' 

FWMTKMIlKIl 

IFINT(A/2)=1PHJ«T , 0N PEUT FAIRE 'A' 1 2 » 1 UNITE AU «AN6 ■ 

•:60705B5i 

PRINT'ON PEUT FAIRE "A" : 2 = MNTiA/:)- UNITES AU BANS 'I* 

F0RI=1T02BBB:NEJT 

IFINT(A/2K)A/:T>CNR=iaSER:e 

PRINTML RESTE "R 1 UNITE HI RANG - ZV 

F0»I=lTO2BBBiNElT 

PRINTSK, 1 'i:PHINTSK-7,' ') 

PRINT*, R ; : IFZZ=BTHENj 1 B2ELSE! 183 

PBINT*-7,INTtA/2)::SOTOilB5 

IFAOBAM)INTIA/2K^PRINTaK-7,INT(A^)! 



51B5 K=K-7:I=Z+l:DD=l 

5MB A=INT(A/2)JF0ei=lT02BBB.HEIT 

5128 RETURN 

5948 ' 

5978 ' Eiercices base 2 -) base 18 

5988 ' — 

5998 DEFIHTS:n=8:.L*fl 

(488 EX=8:aS:IF2M8Tl€N33N 

6882 A^RNDI5in:lFA<*THEN6882 

6805 I2 = Z2 + l:KA=A:AK=*:r.="i:v-.--i« 

4818 PfilNTae, - ITEfl , 22"; 

6815 F0RJN1T0? 

6828 If A/2< > INT (A/2 > TMH>W= 1ELSER=B 

6825 PRINT*, R|:K=K-7 

6838 1FA=ITHEN6W5 

6835 A=INT(A/2):NEITJR 

6848 F0RI=IT05e«.NEIT 

6845 PRINTaKK/auELLE SERA L'ECRITURE DE CE NOMBRE BINAIRE' 

6858 PRINT'DAHS LE SYSTW OECIfttL' 1 

4855 F0Rl=lT05BB:*n 

6868 PRINT'DESIREZ-UOUS L£ TABLEAU DES PUISSANCES K 1" 

6865 PRINT-POUR WJS AIDER'" 

4875 PRINT'FAITES WTRE CHOI«: Ci> POUR OUI, <2> POUR WN' 

6865 Di^INKEYt:[P»="THD468e5 

6898 IFW'M'THENEIsl.WiMTOAeae 

6895 IFDV2'60T06I1B 

6188 605UB6388:PRINTa576,:G0T04868 

6118 60SUB6388!PRlNTaKK*64t 

6115 PRINT* COMMENT S'ECRIRA CE MOfflRE BINAIRE ' 

6128 PRINT'DAHS LE SYSTDt DECI«AL':INPUTD 

6125 IFD=AKPRINTS921,'Ei;ACT":!;L-)!LtliF0flI=lT01Be8:NEn:S0T06aBB 

6138 IFDOAKPRINTS921,'ERREUR" 

6:35 F0RI-lT01Beei«n:PfiINTS921.' ■.60SUB6388 

6148 IFEX-8T>CNIEMr^2:GOTO40ee 

61*5 PRINTJ512, 'CONVERSION DU NOHBBE BINAIRE EN NOMBRE QeClnAi.:' 

6158 K=389!G0SUB458e 

6155 f=9-JR:lFAK<IORHGOT061B5 

6168 F0«a=lT05 

4165 PRINTSK*f *7, ' •;:F0HIL=lT02Be:NEn 

6178 PRINTaK+f*7, , l , ;:F0RI=lT028e:NEn:NEna 



6173 IFO=lPDINT8KK,"B";:0=8:«)IU(ii»i 

6175 PflihrraKK, '+*B**i.c=* 

6188 AK=AK-B:IF0=8Tr£NKK^O(-f7 

6185 JR=JM:|=B/2 

6198 IFBOBTHEN4155 

4195 PRMaTBB/EN TOUT: 'KA' UNITES'. 

4288 PR[NTaa52, ' ' 

4285 FOAh!T03«Be:NEIT:GOT0688B 

4298 ' 

6388 F0RI=576T0989STEP28 

6318 PRINTS], ' 'i 

6328 NE«Tlt RETURN 

4348 ' 

6588 0=1tIFJR^?THENB=256 

4585 IFJR=aTICNB=12B 

45 IB IFJH=7THENB=44 

6515 1FJR=4THENB=32 

4528 IFJR=5THENB-16 

4525 IFJR=4THENB=B 

6538 IFJR=3TI£NJ=4 

6535 IFJR=2THENB=2 

65*8 IFJR=1THENB=1 

65*5 RETURN 

7288 ' 

7388 ' Chon deroiletent di proqrauM 



7)88 PRINT'FAITES VOTRE CHOI*:' 
7518 PRINTiPRINT* <\> 
PREALABLES 1 
7528 PRINT* (2) 
7538 PRINT- (3> 
ICES 1 

7548 Wi=INK£Y|:IFWt= , 'THEN75*e 
7558 IFH»=-l'H=l:50T0148 
756B IF«='2'l*=::aS:G0T0558 
757B iFW= , 3 , U-3:)IL=arDCM:aS.S0T0l8« 
7598 aS:60T075B8 
B288 ' 
B3BB ' Itpriaer cidre 



POUR AVOIR OES EXPLICATIONS 



313 R=R<S+?0>: IF P<£ THEN 223 

215 R<P*9+S)=6^R=R-1 FKP*9+S>«1 £0 

SUB 23? 

217 IF D-0 THEN 221 

219 fl(S+110)«-D 

221 H<R*9+S>=-1 ^P=R+1 ft<.PtS+-i>=-l 

223 S=S+1:IF S<8 THEN 213 

225 K—50 ; L.-0 < FOR J-lll TO 11/aF 

Rf J>>K THEN K*R<J>:L=J-119 

227 NEXT J 

229 IF fi<:L+9Pi>=8 THEN R( L+U0 >— 60 

GOTO 225 
231 J»INT<RND*7>+1 IF R(J+90>"0 TH 
EN 231 

233 IF RCJ+110>»K THEN RETURN 
235 >L RETURN 
237 Z»RCR*9+S> 
239 IF H<S+90>>-5 THEN D=0^GOTO 24 
9 

241 I -R+ 1 = J-S^P-1 
243 IF fl^Ug+J^Z THEN 

GOTO 243 
245 IF P<N THEN 0=0 : GOTO 249 
247 D=l 

249 IF fl(R+100>>»6 THEN 263 
351 I«R^V-1 
253 J-V+S^P-l 
255 IF R<I*9+J>«Z THEN p=-p+l : J«J+V 

■■ GOTO .255 

257 IF VO-1 THEN V=-l :U»P 'GOTO 25 

3 

259 P»P+U-1 i IF P<N THEN 263 

261 D-D+l 

263 V=PW=1 

265 I=R+W'.J=S+V = P=i 

26? IF R<r*9+,!>=Z THEN P=P+1;J=J+V 

:I=I+W^GOTO 267 
269 IF VO-1 THEN V=-l ■ W=-W = U=P^ GO 
TO 265 

271 P=P+U-1<IF P<N THEN 275 
273 D=D+1 

275 IF WOl THEN V=1^G0T0 265 
27? RETURN 

279 ' RESTORE MODE 2. 
281 ' 

283 MODE 2; PAPER 0;PEN 1' BORDER 3' 
GOTO 38? 
285 ' 

287 ' MUS I QUE FIN 
289 ' 

291 RESTORE 291"DHTR 478, 426, 379,3 
58,319,284,0,284,0,284,0,284,358,8 
, 358, 239, 239, 239, 0, 239, 284,-1 
293 RERD MU= IF MU=-I THEN 297 ELSE 
SOUND 1,MU,10,12'FOR I«l TO 70^NE 
XT I 

295 GOTO 293 
297 RESTORE 291 RETURN 
299 FOR 1=1 TO 20: R*=INKEY» 'NEXT I 

' RETURN 

301 ' 

303 ' SORTIE PROG 

305 ' 

307 ON SRERK STOP < END • 



8588 F0M=[T0124STEP2:SETU,2):IE!m< 

8518 F«rY=2T045STEP2;SET(12*,Y).HDTV 

B528 FQW=!2*T0i5TEP-2:SET<X,45>:NEimi 

B53I F0HY=45T02STEP-2:SETU,Yi:*Cm 

8548 SETUP* 



9M PRWWMt23>:Pflma2M,'PRO«A« E-PERlPtNTAL* 

9818 PPINTi3M,'fWR' 

9128 PRINia388,'LENSEI(i*flENT FONMMENTAL' 

9831 PR1NTJ472/HH' 

9848 PRINT8654,'LE CODE BINAIRE' 

9*45 PRINT8718,' ' 

9858 F0M«4T0122iSET<I,n.ftn 

9U8 F0RV=lT05:S£T(121,Vl:Nf.n 

9878 F0M=122T0!lBSTEP-i:SET(I,5).HEIT 

9808 F0BY=3T05.SETUB9,yi:fEXT 

9898 F0M^lir0125!SETa.3)iNEn 

9181 F0HY=3TQ44:5ET(125,Yl:NEXT 

9118 F0M=125T0118STEP-l:SET(X,*4).N£XT 

9128 F0«Y=44T042STEP-l.SET(lB9,yi:N£XT 

»138 F0(H=18 l n0122:SET(X,*2):NEIT 

91*8 E0fly=42T04i.SETU21,Y).NEXT 

9158 FQR<=121'Q2STEP-l:5ET!X,46):NEXT 

9168 P0RY=*4T0*2STEP-l:SET(4,V):NEXT 

9178 F0RI=4T015:SETU,42):NEXT 

9138 fORY=42T044:SET(14,V].NEJT 

9198 F0RI:16T08STEP-l!SET(X.44)!r£JT 

9288 F0RY=*4T03STEP-l:SET<B,YUNEXT 

9218F0RI>8T016fSETI»,3):NEllT 

9228 F0RY=3T05:SET(16,V):(CXT 

9238 FQRX=16T04STEP-!:SETfX,5UN£XT 

9248 F0RY=5T01STEP-i:SET(4,n:NEXT 

95B8 A^-'.AfclNKEY* 

9585 IFAI=CHR«(i3)THEN9558 

9518 F0RI=1T05B:PRINT3KL,'';ENTER;'::NEXTI 

9528 PSINTJKL,' "J 

=538 FORI=1T05B:NEXT1 

95*8 G0T0958t 

9558 RETWW 



POKEL PLUS 



L'ordinateur avec bonneur 
Complet de jeu de cartes a cree 
Pour le grand ptaisir du joueur 
Le graphisme il aura soigne 

Daniel MASSEBOEUF 



Mode d'emploi : 

Deux cartes son! affichees et vous devrez decider si la troisieme a 
apparaitre est superieure ou inferieure. Intuitifs et chanceux a vos 
claviers ! 



■*** PARI 5UR POSITION DE CARTE *** 

1 UIF'E:C0L0R4, 1, 7,2:DATAPARI SUR UNE CARTE, DE DANI 
EL MASSEBEUF.ECRIT EN OCTOBRE 1984. POUR CONTINUER AP 
PUYEZ SUR RETURN, HECTOR AFFICHERA 2 CARTES, ET VOUS D 
DNNERA 100 • . VOUS N'AUREZ QU'A PARIER.SUR LE FAIT DU 
E LA 

2 DATATRDISIEME CARTE POURRAI T. ETRE COMPRISE ENTRE 
LES AUTRES 

3 RE ADA* i Y-2QQ: OUTPUTAt, 121-3«LEN (A») , Y, 1 i Y-180:F0 
RI-1T02. Y-Y-10: READA»tOUTPUTA«, 121-3«LEN<A*> , Y,2:NEX 
TI: Y-130:READA»:0UTPUTA», 121 -3»LEN<A»> , Y, li Y-l 10: FDR 
I-1T06: Y-Y-10: RE ADA*: OUTPUTA*. 121 -3ILEN (A« ) , Y, 3: NEXT 
4:A*=INSTR»<1> 

4 WIPEiCOLORO, 1.3,7iPL0T1.230,240, 18, li "AA»-"JEU D 
U PARI SUR UNE CARTE " i OUTPUTAA* , 1 2 1-3ILEN ( AA* ) , 225, 3 

3 0-100 

6 PL0T1.45.240.45, 1 : DO««"MAINTENANT VOUS AVEZ 
DOLLARS" 

7 GOTO 10 

5 Q-Q+M:G0T06 

9 Q=0-M: IFQ=0THENG0T062:ELSEG0T06 

10 D1«="V0ICI LES 2 CARTES" tOUTPUTDl*. 121-3*LENtDl 
*) ,210, 1:0UTPUTD0«, 121-3*LEN<D0*).60, 1 : PLDT95, 200, 30 
, 120. 3: PLOT I 42, 60, 32, 15, 0; IFQ>=0ANDQ< 10THENOUTPUTQ, 1 
52,60.2:EL5EIFQ>=10ANDQ^lO0THEN0UTPUTQ. 149,60,2 

1 1 IFQ>=100ANDa<1000THEN0UTPUTQ, 14S, 60, 2 J ELSE IFQ>= 
1000ANDQ< 100Q0THEN0UTPUTQ, 142,60,2 

12 rFO>=10000ANDQ<100000THENOUTPUTQ. 138,60,2 

13 F0RX=20T017OSTEP130iPLOTX,2O0,5O, 120,3;NEXTX 

14 D-INT<RND<0,4>)+1 

15 IFD=1THENE=68 

16 IFD-2THENE-71 

17 IFD-3THENE-73 
IB IFD-4THENE-73 

19 IFD-10RD-4THENF-0 

20 IFD-20RD-3THENF- 1 

21 A-INT(RND(0. 13) )*1 

22 IFA<1THENG0T021 

23 I FA> 1 3THENG0T02 1 

24 X-20:Y=200 

25 □NAG0SUB78.S1 . 84, 87. 90, 93, 97, 101. 105", 109, 140, 16 
9,204 

26 D = INT<RND<0,4> 1 + 1 

27 IFD=1THENE=68 

28 IFD=2THENE=71 

29 IFD-3THENE=73 

30 IFD=4THENE=75 

31 IFD=1DRD=4THENF=0 

32 IFD=20RD=3THENF= 1 

33 B=INT(RND (0,13)1+1 

34 IFB< 1 THENG0T033 

35 I^BMSTHENGOTOSS 

36 IFB S =AANDB< > I THENG0T033 

37 IFA=1THENB=1 

38 X«170: Y=200 

39 0NBG0SUB7S.B1.84.B7,90,93,97, IOI , 103, 109, 140, 16 
9,204 

40 PL0T1, 45,240,45, 1 :M0*=" QUELLE EST VOTRE MISE ?" 
:OUTPUTMO«, I21-3»LEN(M0») . 30, 2i SCREEN90, 20, 60. 20:CLS 
1 : CURS0R1 10, 20i INPUTM: IFM< >0THENG0T042 

41 PLOTl.43,240.45, 1:M1»-"V0US AVEZ PEUR DE RISQUE 
R":M2*-"V0S PRECIEUX DOLLARS ?" :0UTPUTM1*. 121-3*LEN ( 
Ml») , 30,2:OUTPUTM2», 121-3*LEN <M2») , 20. 2s PAUSE 1 . 5s PLO 
Tl. 45, 240,45, liGDTOlO 

42 I FM< -QTHENG0T052 

43 PLOTl.45,240,43, 1 jM3»="DESDLE TRES CHER":M4»*"0 
N NE JOUE PAS A CREDIT" (M5««="IL NE VOUS RESTE QUE 

DOLLARS" 

44 DUTPUTM3»,121-3«LEN(M3*) . 35, 2: 0UTPUTM4*, 121-3*L 
ENIM4S) ,25,2:0UTPUTM5«, 1 21 -3ILEN (M5«> , 15, 2s OUTPUTQ, I 
45, 15,0:PAUSE3:GOT040 

45 D=INT<RND(0.4) ) + l 

46 IFD-1THENE-6B 

47 IFD-2THENE-71 
4B IFD-3THENE-73 

49 IFD-4THENE-75 

50 1FD-10RD-4THENF-0 

51 IFD-20R0-3THENF-1 

52 C-INTtRND(0,13))+l 

53 IFC< 1 THENG0T052 
34 I FC> 1 3THENGDT032 

53 PL0T95, 200. 30, 120,3 

36 X-93:Y-20O 

37 DNCGDSUB78.B1. 84, 87,90,93, 97, 101 , 103, 109, 140, 16 
9,204 

38 IFC.BANDC<ATHENG0T039iELSEG0TD60 

59 M6»-"BRAV0, VOUS GAGNEZ" 1 PLOT 1 , 43 , 240, 45, 1 1 OUTP 
UTM6». 121-3«LEN<M6«> , 20, 3iPAUSE2i PL0T1 , 45, 240, 43, 1 1 G 
OTM 

60 M7»-"D0MMA6E. VOUS PERDEZ" 1 PL0T1 , 45,240. 45, 1 lOU 
TPUTM7*. 121-3ILEN<M7*> .20, 2iPAUSE2i PL0T1 , 43,240,43, 1 
1 G0T09 

61 IFIKQTHENG0T09 

62 M8»-"DES0L£ MON AMI, VOUS AVEZ TOUT PERDU" ! PLOT 
1,45,240,45, UOUTPUTMB*. 121~3«LEN (M8*> , 20, 2» PLOT 144, 
60,33, 15,0 I OUTPUTQ, 152,60, 2tPAUSE2: PLOT 1 , 45, 240,45. I 



A suivre : 

En ratson de la longueur 
mhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 




63 RO*-"VOULEZ-VOUS REJOUER ?": R1*-"ENTREZ 'O' POU 
R OUI OU 'N- POUR NON" iPLOTl.45,240,45, liOUTPUTRO*. 1 
21-3«LEN<R0*>,40,3:0UTPUTR1», 121-3*LEN(R1«) ,30,3:CLS 
1:CURS0R114, 13r INPUTA» 

64 IFLEFTKA*, 1 ) »"0"QRLEFT» (A«, 1 > -"o"THENG0T05 

65 IFLEFT«(A«, 1 ) -"N"ORLEFT« < A» , 1 >-"iVTHENGQT067 

66 G0TQ3900 

67 PLOTl.43,240,45, 1:R2«-"TRE5 BIEN. J'ESPERE NEAN 
M0INS"iR3«-"QUE VOUS VOUB ETES AMU5E" I WIPEi 0UTPUTR2* 
, 121-3«LEN<R2«) , 160, 2t 0UTPUTR3*. 121-3*LEN<R3»> ,90, 2: 
PAUSES: WIPE: END 

68 ' * TREFLE * 

69 PLOTX+3, Y, 2, 1 , 0: PLOTX+4 , Y- 1 , 4, 1 , 0: PLOTX+3. Y-2, 6 
,3.0: PLOTX + 4, Y-3, 4, 1,0: PLOTX+2, Y-6, 1 , 1 , 0. PLOTX+3, Y-6 
, 2,2,0:PL0TX+9,Y~6.1,I,0iPL0TX+l,Y-7,3, 1 ,0i PLOTX+B, Y 
-7,3,l,0iPL0TX,Y-8, 12,4, O.PLOTX+I , Y-12, 3, l,0:PL0TX+8 
.Y-12,3, 1,0 

70 PLOTX+2. Y-13, 1, l,0lPL0TX+9,Y-13,l, 1 ,0:PL0TX+5, Y 
- 12, 2, 4,0: PLOTX+4, Y- 16, 4, 2,0: RETURN 

71 ' * CARREAU * 

72 PLDTX+5, Y.2, 2, 1 1 PLOTX+4, Y-2, 4, 2, 1 1 PLOTX+3, Y-4, 6 
,2,1: PLOTX+2, Y-6, 8, 2, 1 t PLOTX, Y-B, 12, 2, 1 : PLOTX+2, Y-IO 
, B, 2,1 1 PLOTX+3, Y-12, 6, 2, I ! PLOTX+4, Y-14, 4, 2, 1: PLOTX+3 
,Y-16,2,2, liRETURN 

73 • • COEUR * 

74 PLOTX+2, Y, 2, 1, 1 : PLOTX+B, Y,2, 1 , 1 iPLOTX+1 , Y-l, 4,2 
, 1:PL0TX+7,Y-1,4,2, 1 1 PLOTX, Y-3, 12,6, 1 iPLOTX+1 , Y-9, 10 
,3, 1:PL0TX+2.Y-12,8, 1, 1 t PLOTX+3, Y-13, 6, 1, 1:PL0TX+4.Y 
-14,4,2, liPL0TX+5,Y-16,2,2, 1 1 RETURN 

73 " * PIQUE * 

76 PL0TX+5,Y,2,3,0iPL0TX+4,Y-3,4,l,0:PL0TX+3,Y-4,6 
, 1, 0: PLOTX+2, Y-3, 8, 1, OlPLOTX+l , Y-6, 10, 2, OiPLOTX, Y-8, 
12,4,0:PL0TX+1,Y-12, 10, 1 , 0: PLOTX+2, Y-13, 2, 1 , Oi PLOTX+ 
8, Y-13, 2, 1, 0iPL0TX+5, Y-14, 2, 2,0: PLOTX+4, Y-13, 4, 2,0 

77 PLOTX+3, Y-l 7, 6, 1 , Oi PLOTX+3, Y- 13, 2, 2, Oi RETURN 
70 " * 2 * 

79 0UTPUT2.X-4,Y-2,F 

80 X=X+19:Y=Y-10:G0SUBE.X=X-19:Y=Y+10:X-X+19iY-Y-9 
2: GOSUBE: X-X-19; Y-Y+92: RETURN 

81 ' « 3 * 

82 OUTPUTS, X-4 , Y-2, F 

B3 X=X + 19:Y*=Y-10: GOSUBE: X=X-19: Y=Y+10: X-X+19: Y=Y-5 
1: GOSUBE: X=X- 19: Y=Y+51:X=>X + 19:Y=Y-92: GOSUBE: X = X- 19: Y 
-Y+92: RETURN 

84 ' » 4 * 

BS 0UTPUT4,X-4,Y-2,F 

96 X-X+4: Y-Y-10: GOSUBE: X = X-4: Y=Y+10: X=X+34: Y=Y-10: 
GOSUBE! X=X-34! YsY+lOs X=X**i Y*Y-<?2! SOSUBEi X=X-4! Y=Y+9 
2; X=X+34: Y-Y-92: GOSUBE; X=X-34: Y=Y+92: RETURN 

87 ' « 5 * 

88 OUTPUTS, X-4,Y-2,F 

89 X=X+4: Y=Y-10; GOSUBE: X=X-4 1 Y=Y+10j X=X+34: Y=Y-1 O: 
GOSUBE! X=X-34:Y=Y+10:X=X+1 9j Y=Y-51: GOSUBE: X=X-19:Y=Y 
+51: X=X+4i Y=Y-92: GOSUBE: X=X-4:Y=Y+92:X=X+34:Y=Y-92:G 
OSUBE: X=X+34 j Y=Y+92: RETURN 

90 ' > 6 * 

91 DUTPUT6, X-4, Y-2, F 

92 X»X+4:Y-Y-10: GOSUBE: X=X-4: Y-Y+10: X=X+34i Y=Y-10s 
GOSUBE: X=X-34: Y-Y+lOi X-X+4: Y-Y-31 : GOSUBE: X»X-4: Y-Y+3 
l:X»X+34[Y=Y-51:G0SUBEiX = X-34:Y-Y+51:Xi*X+4!Y=Y-92jG0 
SUBE: X-X-4: Y-Y+92: X-X+34i Y=Y-92i GOSUBE: X-X-34: Y^Y+92 
t RETURN 

93 * « 7 t 

94 0UTPUT7, X-4, Y-2, F 

95 X-X+4j Y-Y- 10: GOSUBEl X=«X-4i Y-Y+ 10) X-X + 34i Y-Y-10: 
GOSUBE: X-X-34; Y=Y+10i X-X+ 19: Y=Y-31 1 GOSUBE: X-X-19: Y»Y 
+31 :X«X+4:Y-Y-51: GOSUBE i X-X-4: Y=Y+31 : X=X*34 t Y-Y-51 : G 
OSUBE: X-X-34: Y-Y+51 

96 X-X+41 Y=Y-92: GOSUBE: X=X-4: Y-Y+92: X-X+34t Y=Y-92- 
GOSUBE: X-X-34: Y-Y+92:RETURN 

97 ' * 8 * 

98 OUTPUTS, X-4, Y-2, F 

99 X«=X+4: Y-Y-10: GOSUBE: X»X-4: Y=V+10: X=X+34: Y-Y-10- 
GOSUBEl X-X-34: Y=Y+10i X=X+19: Y-Y-31 : GOSUBE: X-X-19: Y=Y 
+31 1 X-X + 4: Y-Y-31 : GOSUBE: X-X-4: Y-Y+51 : X-X+34: Y-Y-51 : G 
OSUBE: X-X-34. Y-Y+31 t X-X+19: Y-Y-71 : GOSUBE. X-X-19: Y-Y+ 



101 ' * 9 * 

102 0UTPUT9, X-4, Y-2, F 

103 X-X+4i Y-Y- 10: GOSUBEl X-X-4: Y-Y+10: X-X+34. Y-Y- 10 
1 GOSUBE. X-X-34. Y-Y+lOi X-X+4. Y-Y-37: GOSUBE. X- X-4: Y-Y+ 
37. X-X+34: Y-Y-371 GOSUBE: X-X-34: Y-Y+37:X=X+ 19. Y-Y-31: 
GOSUBE: X-X- 19: Y-Y+Sl: X-X+4: Y-Y-65: GOSUBE: X-X-4. Y-Y+6 

104 X-X+34. Y-Y-63 1 GOSUBE: X-X-34: Y-Y +63: X-X+4: Y- Y-9 
2: GOSUBEl X-X-4. Y-Y+92: X-X+34: Y-Y-92: GOSUBE: X-X-34 *Y- 
Y+92tRETURN 

103 ' * 10 * 

106 0UTPUT10,X-4,Y-2,F 

107 X-X+4: Y-Y-10: GOSUBEl X-X-4. Y-Y+10: X-X+34: Y-Y-10 
1 GOSUBE i X-X-34: Y-Y+ 10. X-X + 19: Y-Y-24: GOSUBE: X-X-19: Y- 
Y+24t X-X + 4: Y-Y-37: GOSUBE. X-X-4. Y=Y+37i X-X + 34: Y-Y-37: 
GOSUBE: X-X-34: Y-Y+37: X-X+4: Y-Y-63: GOSUBEl X-X-4: Y=Y+6 



10B 



X + 34: Y-Y-65: GOSUBE: I 



-X-34:Y-Y+65: X-X+19: Y=Y- 



U^?^ 



£±. 



78: GOSUBE: X-X- 1 9: Y-Y+78: X^x+4: Y-Y-92: GOSUBE: X-X-4. Y= 
Y+92: X-X+34. Y-Y-92 1 GOSUBE: X-X-34: Y-Y+92: RETURN 

109 ' * VALET % 

110 DUTPUT"V",X+2, Y-2. F: X-X+4. Y-Y- 10: GOSUBE: X-X-4. 
Y-Y+10 

111 PL0TX+39.Y-U, 1, l,2:PL0TX+38, Y-12. 4,1^2: PLOTX + 
37,Y-13,7,2.2:PL0TX+36,Y-13.9, 1 , 2:PLOTX+35. Y-16. 10,2 
,2:PL0TX+34,Y-1B, 1 1 , 2, 2:PL0TX+34. Y-20, 12, l,2:PLDTX+3 
3.Y-2I, 13, l,2:PL0TX+33,Y-22,6, 1.2. PLOTX+39, Y-22, 1,1, 


112 PL0TX+40.Y-22.6, 1 ,2: PLOTX+32. Y-23. 6, 1.2:PL0TX+ 
38.Y-23, 1, 1.0: PLOTX+39. Y-23, 9, 1 ,2: PLOTX+32, Y-24, 5, 1, 
2:PL0TX+37,Y-24, 1, 1 , 0. PLOTX+38. Y-24, 10, 1 . 2.PLQTX+31 , 
Y-25,5, 1,2iPL0TX+36, Y-25, 1, I , 0:PL0TX+37, Y-25. 10, 1,2 

113 PL0TX+30.Y-26, 1, 1 , 1 :PL0TX+31 . Y-26, 4, 1,2:PL0TX+ 
33.Y-26, 1, I,0:PLQTX + 36,Y-26, 11, 1 , 2:PL0TX+2B. Y-27, 3, 1 
, l:PL0TX+33,Y-27,2, 1, 2iPL0TX+33, Y-27, 1, 1,0: PLOTX+36, 
Y-27, 11, 1.2lPL0TX+26,Y-28,3, 1, 1 : PLOTX+31 , Y-2B, 4, 1,0 

114 PL0TX+33.Y-2B, 12, 1 ,2iPL0TX+23, Y-29,6, 1, 1:PLDTX 
+29,Y-29,2, 1,0. PLOTX+31, Y-29, 7, 1, liPLOTX+38, Y-29,9, 1 
,2:PL0TX+19,Y-30,9, 1, 1 : PLOTX+28, Y-30, I, l,0:PL0TX+29, 
Y-30, 11,1, 1:PL0TX*42,Y-30,5,2,2:PL0TX+19,Y-31,6, 1,1 

115 PL0TX+25,Y-31,3. 1 . 0: PL0TX+2B. Y-31 . 12.1, 1: PLOTX 
+18,Y-32,3, 1, l:PL0TX+21,Y-32,4, 1 , 0: PLOTX+25. Y-32, 14, 
1, l.PL0TX+41,Y-32,6,2,2:PL0TX+lB,Y-33,2, 1. l.PLOTX+20 
.Y-33,1, l,0iPLQTX+21,Y-33, IB, 1 , 1 :PL0TX+17, Y-34, 2, 1,1 

116 PL0TX+19.Y-34, 1, 1,0: PL0TX+20. Y-34, IB. I, 1: PLOTX 
+40, Y-34, 6, 1.2lPL0TX+17,Y-35, 1,1, 1 1 PLOTX+ 18, Y-35, 1, 1 
,0:PL0TX+19,Y-35, 19, 1, 1 : PLOTX+40. Y-35. 6, 1,2jPL0TX+1A 
,Y-36,2, l, l:PL0TX+18,Y-36, 1, 1 ,0: PLOTX+19, Y-36, IB, 1, 1 

117 PLOTX+40, Y-36, 4, 1 . 2. PLDTX+16, Y-37, 1,1, 1 : PLDTX+ 
17.Y-37, 1, l,0:PL0TX+18,Y-37, \\, \, I : PLOTX+29, Y-37. 7, 1 
,3: PLOTX+36, Y-37, 1,1, 1 1 PLOTX+4 1 , Y-37. 2, 1 , 2: PLOTX+17, 
Y-3B, 10, l,l.PL0TX+27,Y-38,9. 1 . 3. PLOTX+36. Y-3B, 1,1,2 

11B PL0TX+18,Y-39,7, 1. l.PLOTX+23, Y-39, 1 1 , 1, 3, PLOTX 
+36,Y-39,2,2,2iPL0TX+lB,Y-40,3, 1, 1 tPLOTX+23, Y-40, 13, 
l,3:PL0TX+19,Y-40.2, 1, 1 : PLOTX +21 , Y-41 , 2, 1 , 2l PLOTX+23 
, Y-41, 14,2,3iPL0TX+37,Y-41,2,4,2:PL0TX+l9,Y-42, 1,1,1 

119 PLOTX+19, Y-41, 2, 1, 1 : PLOTX+19, Y-42, 1,1, 1 : PLOTX+ 
20.Y-42,3, l,2sPL0TX+19,Y-43,4,3,2:PL0TX+23,Y-43,2, 1, 
3:PL0TX+25.Y-43,3,l,0:PL0TX+2B,Y-43.2, 1 , 3: PLOTX+30, Y 
-43,4,l,0:PL0TX+34,Y-43,3. I , 3: PLOTX+23, V-44, 1 , 1,3 

120 PLOTX+24, Y-44, 1 , 1 , 0: PLOTX+25, Y-44.4, 1 , 3: PLOTX+ 
29.Y-44, 1, 11,0: PLOTX+30, Y-44, 7, 1 , 3: PLOTX+23, Y-45, 6, 1 
,3: PLOTX+30, Y-4S, 6, 1 , 3: PLOTX+36, Y-45, 4, 5, 2: PL0TX+1B, 
Y-46, 5, 4, 2. PLOTX+23. Y-46 P 3 f I f 3: PL0TX+2&, Y-4A, I , I ,fl 

121 PLOTX+27,Y-46,2, 1 , 3: PLOTX+30, Y-46, 2. 1,3:PL0TX+ 
32, Y-46, 1, l,0:PL0TX+33,Y-46,3, 1 , 3: PLOTX+23, Y-47, 2, 1, 
3: PLOTX+25, Y-47,3 P 1 , O: PL0TX+2B, Y-47, 1 , 1 , 3: PLOTX+30, Y 
-47, 1, 1,3: PLOTX+31, Y-47, 3, 1 , 0: PLOTX+34 , Y-47, 2, 1,3 

122 PLOTX+23, Y-48, 3,1.3: PLOTX+26; Y-4B, 1 , 1 . 0: PLOTX+ 
27, Y-4B, 2, 1 , 3: PLOTX+30, Y-4B, 2, 1 , 3: PLOTX+32, Y-4B, 1,1, 
0:PL0TX+33, Y-4B.3, 1 , 3: PLOTX+23, Y-49, 6, 2, 3: PLOTX+30. Y 
-49,6,2,3:PL0TX+36,Y-49,4,2,2:PLOTX+17,Y-5O,6, 1,2 

123 PLOTX+17, Y-51, 5, 1 , 2: PLOTX+22, Y-51 ,7, 1,3:PL0TX+ 
30.Y-31,7,3,3:PL0TX+37,Y-51,3,9,2:PL0TX+17,Y-32,4, 1, 
2iPL0TX+21,Y-52,8, 1, 3: PL0TX+16, Y-53,4, 1 , 2.PL0TX+20, Y 
-53,9, 1,3: PLDTX+16, Y~S3, 3, I , 2iPL0TX+21 , Y-33, B, 1,3 

124 PLOTX+21 , Y-33, 8, 1 , 3: PLOTX+31 , Y-54, 6,6, 3:PL0TX+ 
15, Y-54, 7, 3, 2: PLOTX+30, Y-34, 1, 6, Oi PLOTX+22, Y-35, 8,5, 
3:PL0TX+26,Y-38. 1, 2, 0iPL0TX+27, Y-39,4, 1 , 0.PL0TX+14, Y 
-57,B 1 2,2iPL0TX+13,Y-39,9.1,2iPL0TX+13,Y-60,7 I 1,2 

123 PL0TX+2O.Y-6O.17, 1,3: PLOTX+37, Y-60,2, 1,2: PLOTX 
+12, Y-6I,9,5,2:PL0TX+21,Y-62,l,7,2:PL0TX+13,Y-66,8,3 
,2: PLOTX+21, Y-61, 13, 1 ,3: PLOTX+36, Y-61 , 3, 1 , 2: PLOTX+22 
,Y-62, 14, 1,3: PLOTX+36, Y-62, 2, 1 ,2: PLOTX+22, Y-63, 4,2, 3 

126 PLOTX+26, Y-63, 6, 2, 1: PLOTX+32, Y-63, 3,2, 3. PLOTX+ 
35, Y-63, 1, 1,3: PLOTX+36, Y-63, 4, 1 , 2iPL0TX+35, Y-64, 5, 1, 
2.PLDTX+23, Y-65, 12, 2, 3.PL0TX+22, Y-63, 1 , 4,0:PL0TX+24, 
Y-67, 10, I, 3i PLOTX+23, Y-67, 1 , 2,0: PLOTX+24, Y-62, 9, 1,3 

127 PL0TX+35,Y-65,B, 1 , 2:PL0TX*33, Y-66,9, l,2iPLDTX+ 
34, Y-67, 11, 1,2:PL0TX+33,Y-6S,3, 1 , O: PLOTX+36, Y-68, 3, 1 
,3:PL0TX+39,Y-68,6,l,2sPL0TX+14,V-69,6, 1 ,2: PLOTX+2 1 , 
Y-69,2, 1, 3: PLOTX+23, Y-69, 2,2,0: PLOTX+25, Y-69, 6, 2, 3 

128 PLOTX+31, Y-69, 1, 1 ,3:PL0TX+32, Y-69,3, 1,0:PL0TX+ 
35, Y-69, 5, 1,3: PLOTX+40, Y-69,3, 1, 1 :PL0TX+43, Y-69,3, 1, 
2iPL0TX+15,Y-60,3, 1 , 2.PL0TX+20, Y-60, 2, 2, 2: PLOTX+22, Y 
-60, l,3,3:PL0TX+34,V-60,6,l,3:PL0TX+37,Y-60,2, 1,2 

129 PLOTX+40, Y-70, 5, 1, 1 t PLDTX+45, Y-70, 1 /I , 2.PL0TX+ 
16.Y-71.4, 1, 2. PLOTX+23, Y-71, I , 2, 3i PLOTX+24, Y-71 , 2,2, 
0:PLDTX+26,Y-71,3, 1 , 3: PLOTX+29, Y-7 1 , 4, 1 , 0iPL0TX+33, Y 
-71,6, l,3i PLOTX+39, Y-71, 6, 1, 1 :PL0TX+13, Y-72, 1,1,1 

130 PL0TX+16,Y-72,3, 1, 2: PLOTX+19, Y-72, 3, 1, HPLOTX+ 
26. Y-72, 5, l,3i PLOTX+31, Y-72, 7, 1 , 3: PLOTX+14, Y-73, 3, 1, 
1. PLOTX+17, Y-73, 2, 1 , 2: PLOTX+19, Y-73, 4, 1 , It PLOTX+23, Y 
-73,3,3,3:.PL0TX + 26,Y-73,3, 1 ,0: PLOTX + 29, Y-73, 8, 1,3 

131 PL0TX+15,Y-70,3, 1 ,2: PLOTX+38, Y-72, 7, 1, 1 

132 PLOTX + 37, Y-73, 7, 1, I : PLOTX+1 1, Y*-74, 13, I, 1. PLOTX 
+26.Y-74, 10,l,3:PL0TX+36.Y-74,7,l,ljPL0TX+10,Y-73,14 
.2, 1. PLOTX+23, Y-76, I , 2. 2: PLOTX+26, Y-73, 8, I,3:PL0TX+3 
4.Y-75.9, l.HPLDTX+24, Y-76. 7, 1,3. PLOTX + 26, Y-77. 3, 1,3 



A SUIVRE. . . 
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--'_. pi>:£V+i3,l?4 prj|E".'04f .200 POKEV+45.12 

2?£ T^O 

277 RETURN 

?7? Pi:HE-»^. ?Cil ■prjCFV+4f,. 15 P=!HT<S0+i?l«PND<0>> POKEV + 13 

£73 1=1 TI*«"600OQ0" 

2m RETURN 

2^1 IF.J=lTHENE = E+-'..2+2.S*fKI"C' ' C-OTOZ?^ 

■■:. I' l: ■ .."■!."■. : + l-1ll.">?' ' IFEK^OTHEHJsl 

i'8? P0KEV*1?.E RETURN 

j?-i f-opi = ito50 he::t F'uil^cm^ ;rn fori = i ti:it.?i3 next pokevv+ 

£S«, ■-.r=Si;+5gci-PC^-EV+2l.l5l PPINT''«TOM««B(WWIOWIM"im«»W^^ 



286 RETURN 

zu7 Fp!HT"ra<iuiiimii[>i>i»i>>»M»»P>iP>R>i.M nuit tombe* 1 topi = 

269 PRIHT-.T* FOPI«1TO20 PRlNT"ian 

2?? PKIHT" »COR g HmCHE" 

;;■-! F'ljk EV + 4f ■;■■ FOPI = ITut;iju ;(l-.:i] \V\ KVi-l^. ■ 1 F'OKEV+44. ? I OKEV+40. 1 RETURN 

292 PRINT'*n" P0KEV+21.a-PPINT"3»MWKWtWv , i:iTPf:' ^COPE TOTAL ET-T BE "J 
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LE LOGICIEL DE LA SEMAINE 



LES FLICS de PSS 

pour cbm 64 , msx et spectrum 



" Alio ? Hum hum ! Inspecteur 
Clauzeau de la Surete 7 Vous 
allez d'ici peu avoir un excel- 
lent job pour vous sortir de 
voire Irou a rat de bureau 

-Oui 

-Allez-y, lancez vos meutes 
assoitfees sur mes traces, 
vous ne me prendrez pas et ce 
soir meme vous compterez 
une piece de moms dans la 
plus prestigieuse des collec- 
tions de bijoux de la capilale 

•Ah bon ? 

-Oui. mais |e vous quitle 
mainlenant ' Vous avez eu lar- 
gement le temps de locallser 
mon appel et de balancer 
toutes vos forces dans ce 
coup Mefiez-vous des appa- 
rences. elles sonl lou|ours 
trompeuses 

Clic, bip bip bip 

Sacre Cleudeau. a chaque fois 
c'est pareil : )e peux lul racon- 
ter n'importe quelle salade et il 
part a fond la gomme dessus. 
Mais tout est encore a (aire, 
suffisammenl baratine, au bou- 
lol Premiere mission, arriver a 
degoter materiel offensit et de- 
fensif Tiens, des siienes 
Plus rapide que d habitude ce 
cher inspecteur Mais voila 
I'immeuble du vieil Harry J'y 
trouvetai sans aucun doute 
une bonne partie des armes 
qu'il me taut. Tu paries d'un 
champion, Harry ! vingt ans 
dans le trafic d armes et pas 
un cheveu blanc Ca c'est de 
la demerde, pas besom de 
se lancer dans des operations 
comme celle-ci. Bon je m'at- 
tarde trap dans ce secteur 
alors que les postiches el la 
boufle attendent chez Joan, de 
I'autre cote de la Tamise. Vingt 
dieux, tous ces costards bleus 
hen que pour moi ! Apparem- 
ment. its ne connaissent pas 
I'autre issue de ce batimenl. 



Au pire. ils la connaitront 
apres mon passage (hin hin 
hin) Bon rien de tel qu'un taxi 
pour etre anonyme, surtoul 
quand son beau-pere est pro- 
prietaire de celui qui passe en 
face ! Et en voiture Simone. di- 
rection casse-croute ! Puis, 
pas de panique. on s artaque 
vraiment au gros morceau : re- 
trouver la trace de ce fichu 
bijou (appele Pink Panther 
dans un film lire de celte his- 
toire). Et louiours plus de 
keufs Ale. ca va elre carte 
ment dur d'y arriver, mais rien 
ne vaut la simulation d'un 
beau defi comme celui-la ' 

Rien ne vaul un jeu d arcade 
blen pense PSS otfre dans ce 

logiciel le plaisir mele dun jeu 
rapide a mener accompagne 
d'une dose minimale de re- 
flexion pour echapper a une 
mod expresse. Les graphe- 
mes rigolos (faibles dans la 
version pour Spectrum) assu- 
rent un grand nombre d'heures 
de |eu sans lassitude. Actuelle- 
ment eternel probieme de ce 
distributee, le cole sonore du 
jeu a ete delaisse au profit de 
la densile scenario-dessin. Un 
bon produit malgre tout qui 
peul trouver une place dans 
voire logilheque 



Inspecteur Clouzal 




PEPE LOUIS CONTRE LE GANG DES PUCES I /Me/71/ 



RESUME DES EPISODES 
PRECEDENTS : 

Pepe Louis a persuade Steve Jobard 
(le patron d Appoil) et Jack Tramolo 
(le boss d Attain) de I accompagner 
a Pans ou le Vieux les attend pour 
faire le point sur lenlevement de 
vingt jeunes lemmes par Harry 
Kong, (I Ombre Verte !] 

Seme EPISODE : 
VOL 747 POUR 
GARGE-LES- GONESSES 

L'hdtesse de lair est accueil- 
lante et elle m aide a installer 
mon petit baise-en-ville dans le 
porte-bagages au dessus du hu- 
blot. Nous voyageons en pre- 
miere classe. Par mesure de 
precaution je me suis coince 
entre le lauteuil de Jobard et 
celui de Tramolo. 
Jobard a beaucoup de style. Le 
genre de gars qui se taille un 
slip dans une serpilliereel qui a 
lair de porter un smoking. Je 
n en dirai pas autant de Tra- 
molo. II a tout de meme pris le 
temps de se changer pour enfi- 
ler un costume a carreaux gnsa- 
tres dont le tissu impregne 
dodeurs de cigare est aussi 
flappi que la peau du cou dun 
elephant 

Depuis deux jours, j'ai mene 
mon enquete tambour battant. 
Pour un vieux de mon age. c est 
pas bon de trop se remuer II 
faut savoir profiler de la vie el 
penser un peu a son corps. 
C est exactement ce que je fais 
en reclamant un verre de Martini 
a l'hdtesse. Des quelle me lap- 
porte, j'enleve mon dentier avec 
soulagemenl et je le pionge 
dans le verre. Je ne connais 
rien de plus decapant. Et puis 
ca soulage mes gencives ron- 
gees par I'arthnte Dix minutes 
plus tard, alors qu'une voix 
suave nous annonce limrni- 
nence du decollage. ]e reajuste 
mon clapet et \ avale mon Mar- 
tini. 

Pour linslant Jobard et Tramolo 
ont fait mine de s'ignorer. A 
peine s'ils se sont serre la main 
quand je les ai presentes. Mais 
je sens que cette courtoisie si- 



lencieuse est de mauvais au 
gure el risque fort de ne pas 
durer Effect! vement, Tramolo 
son une grosse valise de des 
sous son siege, la souleve sur 
ses genoux, et fait sauter les cli- 
quets de securile de ses gros 
doigls poteles Dehors les reac- 
leurs vrombissent. Trois escla- 
ves noirs achevent de balayer la 
pisie d'envoi et I'avion s'elance 
hors de ses starting blocks. Le 
ciel de la California rougeoie et 
poudroie. Les arbres verdoienl. 
le pitote merdoie et les premiers 
passagers degueuloienl sur les 
sieges caca-d'oie. 
Insensible a i altitude Jack Tra- 
molo poursuit son idee Dans sa 
valoche en veritable croco syn- 
thetique d Alabama, il y a un su- 
perbe micro-ordinateur. Tene- 
ment beau que j'en oublie de 
regarder l'hdtesse. Tramolo se 
tourne vers Jobard et fail rouler 
son cigare vers les molaires du 
fond pour mieux parler. 

- Ce que tu vois ici, Steve, c'est 
1'instrument de ma gloire ! Avec 
ca, je vais couler ton Macile- 
mosh en deux coups les gros \ 
Regarde de plus pres : plus de 
500 ko de memoire, processes 
32 bits, tres haute definition cou- 
leur, et le tout trois fols moins 
cher que ton Macilemosh La 
bataille est perdue pour toi, mon 
vieux. Meme Pepe Louis en 
perd son dentier I 

Et Tramolo part d'un grand eclat 
de nre qui fait vibrer la carlingue 
jusqu'au bout des ailes. La pas 
(ait dans la diplomatie. le PDG 
d'Atrahi Je lasse un peu mes 
vieux os sur mon siege pour voir 
comment ca va reagir cole Jo- 
bard. Curieusemenl, le jeune 
homme reste calme. A son lour, 
il sort une mallette de dessous 
le siege et louvre sur ses ge- 
noux. 

- Ne te rejouts pas trop vite 
Black Jack. J'ai ici de quoi met- 
tre ta compagnie a genoux.. 
Et de fait, Jobard debalie 
une merveille d'ordinateur. Petit 
format, portable, superbe avec 
un ecran plat couleur d'une fi- 
nesse extraordinaire. 



- Voila la machine qui va revolu- 
tionner le monde ! Et je vais pro- 
filer de ce voyage en Europe 
pour en faire la promotion ' 
Tramolo verdit, rosit, paganinit 
et spaghettit, ce qui expnme son 
grand desaroi en latin. Mais il 
n'a pas le temps de repondre 
car une intense secousse nous 
projette tous en arriere. Mon 
berel sentence jusquaux epau- 
les. et de la canne je me raccro- 
che au siege avant Les couver- 
cles des deux valises de Jobard 
el Tramolo se sont si brutale- 
ment retermes que ni lun m 
I'autre n a eu le temps de retirer 
ses doigts Dans la panique qui 
suit, lis hurlenl a la morl. Les 
passagers cnent aussi, el mon 
vieil estomac. pourtant blinde. 
(ait le grand huit dans ma 
culotte 

L avion vire brusquemen! de 
bord el nous nous retrouvons in- 
volonlairement colles au hublol. 

- Hey ! s'ecrie Jack Tramolo, 
c'est Cuba juste en bas III 

- My godness susurre Jobard 
Ce damne coucou est en train 
de piquer du nez chez les 
communistes ' 

Au meme moment, les haut-par- 
leurs gresiilenl et je monte le vo- 
lume de mon Sonotone pour ne 
pas rater une miette de Taction. 
Si c'est pas malheureux a mon 
age d'etre embarque dans des 
histoires pareilles. 

^SSu/fe page 16 
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A VOS CONSOLES Tl 99/4 basic etendu disponible 

T.I. logo N° 2 disponible 



CONSOLES ET ACCESSOIRES Tl 99/4 

Mlcro-ordinateur Tl 99/4A Pol 

Moduioteur Secam France 

Modulateur Perltel 

Cable liaison magnela cassettes 

Magneto cassettes Texas Instruments 

Magneto cassettes Lonsay / Compleur et cable 

Imprlmante Seikoscbo GP 50 A 

Imp rim ante Selkoscha GP 500 

Imprlmante Epson RX80 ttl ell on/ traction 

Machine a ecrlte Brother EP 44 a memoire 

Interface parallele exierleure pour Tl 99 

Interface serle exterieute pour Brother pour Tl 99 

Extended Basic manue! trancals 

Manette de jeux Super Joy a veniouse avec 

Interface spec I ale support am 2 maneties 

Manette Quick Shot II a ventouse Tlr blague 

avec adoptoteur pour 2 monetres 

PROG RAM MATION 

Extension memoire 32K exterieute 

Tl Logo n° 2 en ttancais disponible (Module) 

Mini memoire livrable avrll (Module) 

K7 EPSIL0N/S0FTWARE POUR Tl 96 BASIC ETENDU 

Lunar Lander 2 simulation de vols spaflaux 

Lunar Jumper moto de lespoce 

Solai sysieme pllolaged la carte en 3 dimensions 

Sum Games (les jeux olymplques) 

eK7 lunar Lander 2 <- 2 K7 LensomDie 




195 FU 

230 FD 

340 FC 
895 FU 
895 F D 



95 f a 

120 f D 
120 Fn 
120 F a 
260 F 



K7 HEBDOGICIELS SOFTWARE POUR Tl 99 

N° 3 rubis sacre Basic elendu 95 F D 

N° 4 6 Jeux doni Datk Crystal Basic etendu 120 F □ 

N" 2 12 jeui dont Roland Garros Basic etenou 1 50 F □ 

MODULES TEXAS ORGANISATION 

Gestlon de (ichiers 260 F Q Gesllon de rapports 375 F [..'■ 

Gestlon prlvee 360 F D 

MODULES FUNWARE POUR Tl 99/4 

Rabbit Rail ; Driving Demon ; St nick ; Ambulance 

L'ensemble : 400 F □ 

MODULES ROMOX POUR Tl 99 

• Princess and Frog 9 nlveaux. module d'adresse convenant a 
lous - Traverser lallee des cavaliers - Traverser le (leuve Inlesie 
de crocos - Reussir a aeiivrer la prlncesse - Le tout en 
muslque 120F G 

• Anteater 9 nlveaux - Un combat sans mercl dans les galerles 
creu»6es par les combattants • Acceleration toudroyonte 6 
partlr du 7* niveau 1 20 F □ 

• Rotot Raiders 9 nlveaux - Pac-Man dlabollgue et en 
muslque 100F D 

• Hen Pecked 6 nlveaux - Jusqu'a 10 ons un grand combat de 



LOGO 2 (moduli) 

Enseignez o volte ordinateur : 

(or mes. couleurs. musique, 

procedures, caracteres dessines. 

variables de tous genie s, 

constructions grammalicales et 

arllhmetiques. 

La tortus se degulse en sourls 

habile sntre vos mains et vous 

developpe loglque et creatlvlte - 

journal de bord - sauvegorde 

possible de lous supports, V 

Imprimante 

Promotion \ le module logo 

+ mttmolfe 32 Ko 1995 FD 



BASIC ETENDU 



Module comprenant un langage de 
programmatlon renlorcant le Basic 
Ou Tl 99 . 40 commondes supple 
mentaues. acces au langage 
assembleui. (Entrees/soilies). 
Sous-progtommes. stockogs, spri- 
tes, traltement d'erreurs. Expres- 
sions logiques. LET multiple Intro 
auctions multiples Acces a rexten- 
slon 32 K. 




MEMOIRE 32 K exterieure neces- 
solte pour tullllsatlon du basic 
etendu 

Elle est indispensable pour la pio- 
gmmmaliori en logo Si I'on possede 
la mim-memone ou 1'assBnibleut. 
elle permet d'odiesser des sous- 
programmes en assembleur et de 
les executor 



LOT N 1 INDISPENSABLE 




• Module BASIC ETENDU manuel en trancals 




• K7 Basic par soi-meme 




• K7 Lunar Lander 2 (simulation de vols 






850 f a 






mim-memoire 



disponible avril. 



^ S,C ^N D HUNPWS 



MINI -ME" MOIRE 

1 module + 1 cassette, compatible 

extension 32 K. 

Ca module ne se contents pas de 

vous offrlt 4 Ko de memoiie RAM 

(alimenree par pile) permettont la 

souvegaide des programmes et 

donnees lorsque vous etelgnei 

I'ordlnoleui. . 

• 4 Ko de memoire morte (ROM) et 
6 Ko de memoire matte gropmque 
(G - ROM) contenanl des utilitaires 
he 5 inter es sonl 

- acces possible a lextension 32 K 
en Tl basic. 

c nor gem e n i de programmes- 
objets ecrits en assembleur, soil sur 
mlnl-memolie, soli sur exlension 
32 K; 

- utilisation de PEEK et POKE, appel 
de sous- prog ram mes habiluelle- 
ment non accessibles. 

- programme de recherche 
d'erreurs (Easy Bug - Debug) 
Avec la K7 Assembleur ligne par 
ligne et programme de demonstra- 
tion giaphique (LINES) tres puis- 
sant, 'posse l la surmultipliee' sur 
votre Tl en vous off rani 4 K He RAM 
non volatile el les joies do I'Assem 
bleur... 



fjgqi en musiquc 
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LANGAGE PASCAL comprenanl : 
La carte P. code el les dlsqueltes Poscal ; 
USCO, Compiler: Assembleur linker; 

Edlteur liter 3300 FD 



PROGRAMMATION SUR DIS0UETTES 

Cotfrel perlpherique Texas : origins USA. 

comprenant le bolller, le controleur. 

el lunite de dlsquette 5 700 F a 




C0NTR6LEURS - LECTEURS DE DISOUETTES 360 Ko 

• Carte controleur enlichabio dans boitier perlpherique 
(compailhle avec unites de disquetles Texos) 
Double tace, double densile, 360 Ko 

• Unite de lecture de dlsquehes 5' 1/4 SLIMLINE 360 Ko 
1/2 hauteur (2 lecteurs peuvenl tenir dans le 
compqrtiment "dlsque - du boitier perlpherique) 

L'ensemble 6300 F D 

(liwaison avril) 
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